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Notas programáticas 


Comandos de cor 


Todos os programas incluídos neste livro foram concebidos e ensaiados num 
Amstrad normal, utilizando um monitor de cor. Os leitores que possuírem um moni- 
tor monocromático podem ter de considerar, em certas fases, a necessidade de fazer 
ajustamentos aos comandos de cor. 


Armazenamento de dados 


O armazenamento de dados é efectuado através do Datacorder incorporado. Os 
leitores que, posteriormente, adquiram um disk drive compatível devem encontrar 
poucas dificuldades em alterar os comandos de abertura e fecho do ficheiro, de mo- 
do a adequarem-se à expansão do sistema. 


Sinal exponencial 


O símbolo 7 que aparece nos programas é o símbolo da seta para cima, o sinal 
exponencial. 


Introdução 


Este livro faz parte de uma das séries de livros para microcomputadores com 
maior sucesso, de entre todos os que se publicaram até agora. Em 1982, quando foi 
lançado o primeiro «Working Micro» («Micro Funcional»), poucos editores acredi- 
tavam que houvesse vulgares possuidores de micros que desejassem utilizar e com- 
preender as suas máquinas, que quisessem assumir o controlo delas, aprendendo a 
programar ... programando. A maioria dos livros estavam pejados de jogos e outras 
utilizações triviais, ou consistiam noutro «Guia de Principiantes do ...». A perspecti- 
va de um livro que se lançasse no fornecimento de programas sólidos e úteis, dando 
simultaneamente um conhecimento intrínseco dos métodos empregues em programa- 
ção a sério, não parecia ser suficiente para entusiasmar o mundo. 

Mas eu estava convencido, tal como o estava a Sunshine Books, de que os livros 
Microj «Funcional» eram precisamente aquilo que as pessoas procuravam, para 
preencher uma enorme lacuna na provisão de livros para o crescente exército dos 
possuidores de micros. E estávamos certos. 

Desde essa altura, os livros «Micro Funcional» têm seguido os microcompu- 
tadores para quase todos os países onde são vendidos. Têm sido, ou continuam a ser, 
traduzidos em catorze línguas. 

Aparece agora uma máquina nova e ousada da Amstrad, o CPC 464, com uma 
nova e brilhante versão do BASIC, uma memória mais do que adequada para quase 
todas as aplicações e uma vasta gama de recursos, que nada têm a ver com o preço 
notavelmente baixo. O 464, bem como a ideia subjacente aos livros «Micro Funcio- 
nal», estão feitos um para a outra — como os programas deste livro, assim o espera- 
mos, irão provar-lhe. 


Como utilizar este livro 
Pode utilizar o livro de diferentes modos: 


1) Como uma colecção de programas úteis, os quais pode adaptar e desen- 
volver segundo as suas próprias necessidades. 

2) Como uma colecção de sub-rotinas, a partir das quais pode construir os 
seus programas pessoais. 

3) Como uma introdução à programação com o BASIC do CPC 464. 


Seja qual for a forma como decidir utilizá-lo, lembre-se de que ele foi escrito 
como um livro, e não apenas um conjunto desarticulado de programas, sem qualquer 
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ordem específica. Frequentemente deparamos com leitores em dificuldades por, sem 
a devida preparação, terem saltado para alguns dos programas mais complexos, os 
quais se encontram no final do livro. Os primeiros programas do livro, além de te- 
rem uma utilidade e interesse intrínsecos, foram também concebidos como uma in- 
trodução ao que vem depois. Acompanha estes primeiros programas um grau muito 
mais alto de explicação, de modo que, ao serem atingidos os programas mais com- 
plexos, o leitor tenha um bom domínio de algumas das técnicas em utilização. 


2 DAVID LAWRENCE E SIMON LANE 


CAPÍTULO 1 


Experiências com o tempo 


É sempre difícil saber por onde recomeçar, num livro destes. Um programa de- 
masiado complexo e os leitores poderão achar-se confusos antes de terem recolhido 
algumas das indicações simples que tornam os programas progressivamente mais fá- 
ceis de compreender, à medida que se avança no livro. Por outro lado, se os primei- 
ros programas forem demasiado triviais, muitos leitores poderão não se dar ao tra- 
balho de descobrir futuras e mais substanciais ofertas. 

Posto isto, decidi-me abordar, neste primeiro capítulo, um conjunto de quatro 
programas que tratam do tempo e da forma como este pode ser manipulado no CPC 
464. 

Os programas deste capítulo são: 


ANARELÓGIO: apresenta um relógio de mostrador tradicional em alta resolu- 
ção. 


RELÓGIO: fornece um modo bem diferente de indicar o tempo. 
TEMPORIZADOR: põe à sua disposição dezasseis temporizadores em concor- 
rência, podendo cada um deles fazer soar um alarme e mostrar uma mensagem- 


“memorando. 


PROVA DESPORTIVA: transforma o seu CPC 464 num sofisticado (e bastan- 
te dispendioso) cronómetro. 
PROGRAMA 1.1: ANARELÓGIO 
Função do programa 

O objectivo deste programa é produzir uma réplica do mostrador de um relógio 
no écran, justamente com ponteiros que se movem ao ritmo do tempo corrente. Du- 


rante a prossecução do programa, aprenderá bastante acerca dos métodos empregues 
neste livro, pelo que se recomenda a leitura cuidadosa do comentário junto. 
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Fig. 1.1 — Impressão de écran do Anarelógio 


Nota. — O efeito ligeiramente ovalado é resultado do processo de impressão do écran — o mostra- 
dor do relógio é circular, quando apresentado no écran. 


As ideias apresentadas no decurso do programa incluem: 


1) Salvaguarda de programas durante o desenvolvimento. 
2) Inicialização do programa. 

3) Módulos de controlo. 

4) Tempos com o comando EVERY. 

5) Programação modular. 

6) O módulo de controlo. 

7) A matemática simples de um círculo. 


Módulo 1.1.1: Salvaguarda do programa 


Estas três linhas podem parecer um local trivial para começar, mas aqueles que 
trabalharam com os livros «Funcional», para máquinas anteriores a esta, devem sa- 
ber que este pequeno módulo pode evitar muitas dores de cabeça durante o desenvol- 
vimento de programas. 

A maioria das pessoas aprende apenas por experiência amarga que os progra- 
mas devem ser salvaguardados regularmente, ao longo do seu desenvolvimento. Ce- 
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do ou tarde, muitos de nós passam por um momento em que horas de trabalho são 
deitadas à rua devido a um momentâneo corte de energia, a um fusível queimado, a 
uma pancada no micro ou numa ficha. Para os utilizadores experimentados, apenas 
se terão perdido uns quinze minutos de trabalho, já que nunca permitirão a existên- 
cia de mais de quinze minutos de programa sem a respectiva salvaguarda. 

O objectivo das três linhas deste módulo é encorajar o utilizador a fazer cópias 
regulares do programa em que estiver a trabalhar, bastando para isso teclar GOTO 
2. Outro pequeno pormenor que, futuramente, poupará tempo, é que um módulo 
como este, junto ao início de todos os seus programas, fornece ao programa uma li- 
nha inicial padrão, ou seja, «1». É frequentemente desejável começar um programa 
com GOTO, se tiverem sido estabelecidas variáveis que deseje limpar com RUN — 
com este módulo no lugar, não terá de determinar o número da primeira linha, sa- 
bendo que pode sempre começar com GOTO 1. 

O módulo precedeu todos os programas do livro, à medida que iam sendo de- 
senvolvidos, mas, visto que apenas o nome do programa muda, ele não será incluído 
no resto dos programas listados neste livro. 


Módulo 1.1.1: linhas 1-3 
1 GOTO 3 
2 SAVE «anarelógio»:STOP 
3 REM 
Ensaio 
Assegure-se de que tem uma cassete no gravador. Faça 
GOTO 2[ENTER] 
Siga as instruções do sistema para pôr o gravador em marcha. Após alguns mo- 
mentos, deverá ver a mensagem BREAK IN 2. Pode agora apagar as três linhas em 
memória e voltar a carregar o programa a partir da cassete, rebobinando e 


carregando-o na memória. 


NEWIENTER] (apaga o programa corrente) 
LOAD «ANACLOCK»[ENTER] 


Após ter terminado o processo de carregamento, liste o programa e o módulo 
deverá ter sido reinstalado. 
Módulo 1.1.2: Inicialização do programa 

Qualquer programa digno desse nome utiliza variáveis e constantes, quer dizer, 
etiquetas cujos valores podem ser alterados no decurso do programa ou, pelo menos, 


de programa para programa. A vantagem das variáveis consiste, simplesmente, no 
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facto de permitirem escrever linhas programáticas que se apliquem a mais de uma si- 
tuação. Por exemplo, PRINT 2*A poderia ser utilizado sem se atender ao valor de 
A. Muito poucas variáveis devem obrigatoriamente ver os seus valores declarados ao 
ser passado (RUN) o programa pela primeira vez e muitas pessoas deixam, frequen- 
temente, a definição dos valores para o meio do programa, quando uma variável é 
absolutamente vital. Trata-se de uma política errada porque, à medida que o progra- 
ma é desenvolvido, torna-se cada vez mais difícil descobrir qual o valor das variáveis 
importantes, ao iniciar o programa. É boa prática, regra geral, declarar logo no iní- 
cio do programa o valo: das principais variáveis, sendo este processo conhecido por 
«inicialização». 

Assim sendo, uma excepção sensata, quando a memória é limitada, é omitir va- 
riáveis cujos valores não interessam quando o programa se inicia. Excepto os valores 
que representam as cores a utilizar, todas as variáveis importantes usadas neste pro- 
grama são derivadas daquilo que o utilizador introduz, quando se lhe pede que espe- 
cifique o tempo. Tais variáveis, perfeitamente irrelevantes quando o programa se ini- 
cia, são frequentemente omitidas no módulo de inicialização. 

No caso deste programa particular, o objectivo do módulo é estabelecer os parâ- 
metros para a eventual visualização dos gráficos e colocar a máquina em modo DEG 
(de DEGree, ou seja, grau), o qual é conveniente para cálculos que envolvam tempo. 


Módulo 1.1.2: linhas 2000-2110 


2ODO REM SI IEIEIEIEIEIEIE IE DE IEEE DEDE IE DEDE IDE IE DE DIET IE ICI E 
2010 REM Initialise 

VB2D REM JJ JE IEIEIEIEIEIE DEDE IE DE DEI IE IE DEDE DE IE IE IE ICI IE IEEE 
28Z0 MODE 1 

2240 INK B,i 

2050 INK 1,24 

2060 INK 2,3 

2070 INK 3,6 

2089 BORDER 1 

2890 ORIGIN 200,200 

21900 DEG 

2110 RETURN 


Ensaio 

Pode fazer-se um ensaio rudimentar do módulo inserindo: 
GOTO 2000 

Se o módulo foi correctamente introduzido, o écran limpará e será apresentada 
a mensagem «Unexpected RETURN in 2110». Só será possível uma verificação com- 


pleta do funcionamento do módulo após terem sido introduzidos módulos subse- 
quentes. 
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Módulo 1.1.3: Marcação do tempo 


Antes de nos lançarmos na criação de um relógio, devemos ter os meios para 
marcar o tempo. O objectivo deste módulo é permitir ao utilizador inserir o tempo 
corrente, em horas e minutos, armazenando-o na memória do 464 sob a forma das 
duas variáveis, HOUR e MINUTE (hora e minuto). 


Módulo 1.1.3: linhas 3000-3080 


SODA REM IEIEIEIEIEIEIEIEIEIE TETE III 

S010 REM Set Time 

FB2D REM 333 SETE TETE IDE IE IE IE IEEE IE IE IE IE IE IE IES IEEE IEEE 

S030 PRINT “Clock Setting:"“:PRINT 

3240 INPUT "Hour (1i-12):":;hour 

3050 IF hour<i OR hour >12 THEN PRINT "xx 

* Out of range: please try again **x":G60 

TO Z240 

3260 INFUT "Minute (90-59) :";minute 

3070 IF minute<B OR minute>59 THEN PRINT 
"“xx* Out of range: please try again *x+ 
":GOTO JD60 

3080 RETURN 


Ensaio 
Introduza 
GOTO 3000[ENTER] 


e ser-lhe-á solicitado que forneça o tempo em horas e minutos. Se introduzir um va- 
lor não válido para qualquer das duas variáveis, resultará daí uma mensagem de er- 
ro, ao passo que um tempo razoável deverá ser aceite. Depois de isto ter acontecido, 
o programa parará com a mensagem de erro «Unexpected RETURN». Nada de mal 
se passa — quando o módulo final for introduzido, este módulo tornar-se-á uma 
sub-rotina, chamada por um GOSUB. 

Pode executar uma outra verificação, se assim o desejar, escrevendo: 


PRINT hour, minute[ENTER] 


o que deverá resultar na visualização em écran dos valores de hora e minuto por si 
introduzidos. 
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Módulo 1.1.4: Montagem do mostrador 


Após ter inserido o tempo, chegamos à concepção do mostrador do relógio, no 
qual módulos posteriores irão pôr as mãos. 


Módulo 1.1.4: linhas 4000-4090 


IDO REMELESELEELEEELLERLLLRERE ENE IEA 
49210 REM Clock Face 

A02B REM Ed IE JET DE IEEE E IE ICE DEI E IE SEE E E DE DE 
40:90 CLS 

4940 FOUR a=Q0 TO &59 STEF 6 

40950 MOVE 2D0+rSIN(a) ,20904C0OS(a) 

adéM r=195: IF a MOD Z0=0 THEN r=185 
4970 DRAW reSINia),r«COSta) 1 

1080 NEXT a 

4090 RETURN 


Comentário 
Definição de um círculo 


O método empregue neste módulo baseia-se no facto de qualquer ponto da cir- 
cunferência de um círculo poder ser determinado, caso sejam conhecidos os seguin- 
tes elementos de informação: 


a) O raio do círculo (RADIUS). 

b) O ângulo que tem de ser percorrido no sentido dos ponteiros do relógio, 
a partir da posição das três horas, para se chegar ao ponto especificado 
(ANGLE). 

c) As coordenadas do centro do círculo (CENTRE X e CENTRE Y). 


Dados estes três elementos, a posição será expressa por duas fórmulas: 


X coordinate = RADIUS*COSINE(ANGLE) + CENTRE X 
Y coordinate = RADIUS*SINE(ANGLE) + CENTRE Y! 


O espaço não nos permite analisar aqui por que razão isto deve ser assim, mas 
qualquer bom livro de trigonometria poderá aprofundar esta lógica. No nosso caso 
particular, as fórmulas são ainda mais simples, já que uma das coisas que fizemos 
durante o módulo de inicialização foi deslocar a origem (ORIGIN) dos gráficos do 
écran para 200,200. Isto significa que qualquer referência à posição 0,0 do écran 
aparecerá, medida a partir do canto inferior esquerdo do écran, numa posição em pi- 


! Coordenada X = RAIO*COSENO(ÂNGULO) + CENTRO X; Coordenada Y = RAIO* 
SENO(ANGULO) + CENTRO Y. (N. do T.) 
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xel de 200 para cima e 200 para a direita. A vantagem disto consiste em que, tendo 
movido a origem dos gráficos para o local onde se deseja colocar o centro do mos- 
trador do relógio, pode descurar-se qualquer referência às coordenadas X e Y do 
centro do mostrador — ambas são zero. As fórmulas para a posição de qualquer 
ponto específico da circunferência do círculo são agora: 


X coordinate = RADIUS*COSINE(ANGLE) 
Y coordinate = RADIUS*SINE(ANGLE) 


que é exactamente o que verá em utilização no módulo. 


Linhas 4040-4080: este ciclo leva-nos através dos 360 graus de um círculo, em 
saltos de seis graus. Visto que há 60 minutos numa hora e 360/60 = 6, não ficará sur- 
preendido por saber que o ciclo tem algo a ver com as marcações dos minutos no 
mostrador, as quais serão desenhadas por linhas subsequentes. 


Linha 4050: o cursor dos gráficos é deslocado (MOVE) para um ponto na cir- 
cunferência do círculo, utilizando as fórmulas descritas acima. A primeira posição, 
quando a variável A do ciclo está em zero, ficará no topo do círculo. Posições subse- 
quentes aparecerão seguindo o círculo no sentido dos ponteiros do relógio, em incre- 
mentos de seis graus. 


Linhas 4060-4070: tendo estabelecido uma posição ao longo do exterior do cir- 
culo, estas linhas desenham uma linha interior, em direcção ao centro. O que as li- 
nhas fazem, de facto, é desenhar uma linha da circunferência de um círculo para a 
circunferência de um outro mais pequeno, no interior daquele. O círculo exterior 
tem um raio de 200 pixels, enquanto a dimensão do círculo interior dependerá de o 
ângulo apontado pela variável A do ciclo apontar ou não para cinco minutos com- 
pletos (30 graus). Se o ângulo não apontar para cinco minutos completos, então o 
círculo interior ficará apenas cinco pixels para o interior do círculo original — a mar- 
ca desenhada terá cinco pixels de comprimento. 

A utilização da função MOD assegura que o programa saiba quando é atingido 
um ângulo de 30 graus. 5 MOD 2, por exemplo, dá o resultado 1, ou o que fica (o 
resto) da divisão de 5 por 2. A MOD 30, tal como no programa, dá o resto da divisão 
da variável A do ciclo por 30 — quando este é zero, então o ângulo é exactamente di- 
visível por 30. Sempre que isto acontecer, o círculo interior ficará mais pequeno ou, 
dito de outra forma, a marca desenhada será mais comprida, salientando assim as 
marcações de cinco minutos. 


Ensaio 
Introduza 
GOTO 4000 [ENTER] 


e deverá ver o écran ser limpo, aparecendo o mostrador de um relógio. O programa 
terminará então, com uma mensagem de erro «Unexpected RETURN». 
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Módulo 1.1.5: Ajuste dos minutos e horas 


Neste módulo passamos ao verdadeiro trabalho do programa, que é o de cal- 
cular o tempo corrente e, nessa base, as coordenadas para os ponteiros do relógio. 
Este módulo não poderá ser utilizado convenientemente até que seja introduzido o 
último dos módulos, já que só então ele será chamado nos intervalos próprios, ou se- 
ja, uma vez em cada minuto. 


Módulo 1.1.5: linhas 5000-5130 


SUDO REM 63636 IEIE TETE DEE IE IE IE IE IE IE IE IE IEEE IEL IEEE III IE 
3D1B REM Adjust Time 

SOZD REMMIEIEIEIEIEIEIE TETE IE IE IEIE IE IEIEIEIEIE IE IEIE III IEEE EE 
ID3Q c=0 

5040 angle=minute*6:size=189:GOSUE 6080 
3050 angle=hour*ZB+minute/2:size=128:6G05 
UB 6000 

9260 minute=minute+l 

39070 IF minute=60 THEN minute=B:hour=hou 
r+i 

9080 IF hour=i%Z THEN hour=i 

5090 c=2 

9100 angle=minute*x6:size=180:GOSUE 60004 
5110 c=3 

39120 angle=hour*ZB+minute/2:size=120:60S5 
UB 4000 

35150 RETURN 


Comentário 


O módulo encontra-se dividido, na verdade, em três secções distintas. A tarefa 
da primeira secção é chamar um módulo subsequente, para que ele apague os pontei- 
ros na posição em que existem. A segunda secção adiciona 1 a MINUTE e faz qual- 
quer alteração consequente a HOUR. A terceira secção pega nos novos valores de 
hora/minuto e chama um módulo subsequente para redesenhar os ponteiros. 


Linhas 5030-5050: a variável C será utilizada por um módulo subsequente para 
estabelecer a cor da tinta (INK). Em primeiro lugar é colocada em 0. Se fizer uma re- 
trospectiva do módulo de inicialização verificará que a cor 0, a cor de fundo, foi de- 
finida para azul. A linha 5040 estabelece os parâmetros para o ponteiro dos minutos, 
designadamente o ângulo em que deve ser desenhado e a dimensão. Uma vez que o 
valor do minuto não tenha sido alterado, o desenho do ponteiro na cor de fundo 
apagará, de facto, o ponteiro existente. A linha 5050 faz o mesmo trabalho relativa- 
mente ao ponteiro das horas. 
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Linhas 5060-5080: os valores de minuto e hora são actualizados, pela adição de 
1 aos minutos, fazendo-se depois quaisquer ajustamentos para assegurar que os valo- 
res resultantes sejam razoáveis. 


Linhas 5090-5120: os parâmetros dos ponteiros de hora e minuto são estabeleci- 
dos de novo, utilizando os valores actualizados, antes da chamada do módulo 
seguinte para os retirar. O número de cor C é posto em 2, para o ponteiro dos minu- 
tos, e em 3, para o ponteiro das horas. Se voltar a observar o módulo de inicializa- 
ção, verá que isto corresponde, respectivamente, a vermelho e vermelho brilhante. 


Ensaio 


Escreva: 
6000 RETURNI[ENTER] 


Esta linha é temporária e tem a seu cargo assegurar que o módulo acabado de 
introduzir solicita um que ainda não exista. 
Agora, escreva: 


HOUR = 0[ENTER] 
MINUTE = S9[ENTER] 
GOTO 5000[ENTER] 


e deverá verificar, quase instantaneamente, que a execução pára, com uma mensa- 
gem de erro «Unexpected RETURN». Escreva agora: 


Deverá ver que o que foi impresso é: 
0 l 


reflectindo o facto de os seus 59 minutos originais terem sido aumentados para 60, 
sendo o valor da hora acrescido em concordância com esse facto. 


Módulo 1.1.6: Desenho dos ponteiros 


Após termos calculado todos os valores necessários para chegarmos à posição 
dos ponteiros, podemos passar agora a desenhar os ponteiros do relógio. 


Módulo 1.1.6: linhas 6000-6110 


SDDO REM IS IEIEIEIEIE SEDE IE IE DEDE DE TETE IE IE TETE DE IEEE IE IE IICT 


6010 REM Draw Hand 

6D2B REM IE MEIEIEIEIEIE IDE IE DEDE DEDE IE DEDE IE DE IE DE IEEE IE IE IEEE 
6UZB size?=size*Z/3 

69240 PLOT 0,0,c 

6050 DRAW size2*SIN(angle-8) ,size2*COS(a 
ngle-8) 
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6060 DRAW sizexSIN(angle) ,size*C0s(angle 
) 

6070 DRAW size2*SIN(angle+8) ,sizeZ*C0S(a 
ngle+8) 

€082 DRAW 2,0 

6990 MOVE size2*SINíangle) ,sizezZ*Cos (ang 
le) 

6100 GOSUB 7020 

61190 RETURN 


Comentário 


Linha 6030: os ponteiros a desenhar terão a forma de um losango muito alonga- 
do. SIZE 2 representa a distância ao centro a partir da qual o ponteiro começará a 
afunilar em direcção à ponta. 


Linha 6040: o cursor de gráficos é deslocado até ao centro do mostrador e a cor 
de desenho regulada para C, permitindo assim ao módulo anterior ditar a cor ou o 
que for desenhado. 


Linhas 6050-6080: estas linhas desenham quatro traços no écran, os quais defi- 
nem o ponteiro. A primeira linha tem o comprimento SIZE 2 e é desenhada a um ân- 
gulo de oito graus em sentido inverso ao dos ponteiros do relógio até ao ângulo cor- 
recto para a hora e minuto. A linha seguinte é desenhada a partir do fim da primeira 
linha, até uma posição que se encontra no ângulo e pixels SIZE correctos a partir do 
centro. A terceira linha é desenhada até uma posição distante do centro SIZE 2 pi- 
xels e oito graus no sentido dos ponteiros do relógio até ao ângulo correcto. Final- 
mente, a forma é completada desenhando uma linha de retorno ao centro. 


Linhas 6090-6100: estas duas linhas são necessárias para os objectivos do próxi- 
mo módulo, que são colorir as formas vazias criadas por este módulo. A linha ope- 
rativa é 6090, a qual desloca o cursor de gráficos para um ponto claramente dentro 
da forma do ponteiro desenhado. 


Ensaio 


Em primeiro lugar, tem de ser adicionada uma linha temporária para se atingir 
o módulo seguinte: 


7000 RETURN 


Agora, escreva: 
CLEAR:CLS:DEG:GOTO 5000[ENTER] 


e deverá ver o écran limpar, bem como a impressão dos dois ponteiros do relógio, 
sensivelmente às doze e um minuto. Os ponteiros estarão apenas em esboço, já que o 
processo de preenchimento com cor é efectuado pelo próximo módulo. 
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Módulo 1.1.7: Preenchimento de uma forma com cor 


Uma das poucas deficiências do 464, se comparado com outros computadores 
pessoais, é a falta de um comando para preenchimento de uma forma esboçada com 
cor. O módulo aqui fornecido é bastante mais lento do que um comando incorpora- 
do e tem algumas limitações, ainda que execute o seu trabalho, pelo que vale a pena 
tê-lo. 

A rotina, tal como vem listada neste módulo, preencherá qualquer polígono 
cujos ângulos sejam côncavos, quando vistos do exterior, ou seja, cujos ângulos 
apontem para fora e não para dentro. Preencherá algumas formas cujos ângulos 
apontem para dentro, mas não todas. Se realmente pretende utilizar a rotina em for- 
mas tão irregulares, então terá de preenchê-las por secções. Note, especialmente, que 
se a rotina for utilizada numa forma que não esteja fechada, provavelmente trancará 
enquanto procura pelo écran os limites da figura. 


Módulo 1.1.7: linhas 7000-7300 


7“00A REIMS SE IE SE SEE IE DESDE DE IE DEDE DESTE DE DEDE IE DEI DEE E EEE 
7010 REM Fill 

TALO REMETE TED DEDE DEDE SEDE IE DEDE TETE IEEE IEEE DE DEI IO E E 
70ZA IF TESTR(G,B)=c THEN RETURN 

7040 s=2? 

7050 MOVE 2*HINT(XFOS/2) ,2*4INT (YFOS/2) 
7060 : 

070 : 

7080 REM search up/right ssa IICA 
7094 IF TESTR(G,5)<>c THEN GOTO 7090 
7100 IF TESTR(s.-s)“:c THEN GDTO 7090 
7110 : 

7120 : 

7130 REM search up/left wma HH 
7140 MOVER -—-s,0O 

7150 IF TESTR(M,s)<>c THEN GOTO 7090 
7160 IF TESTR(-s,-s)<>c THEN GOTO 71950 
7170 : 

7180 : 

7190 REM ink in lines across **HEXXxxx* 
7200 x1=XFOS 

7210 MOVER s,0 

7220 PLOTR 2,0,c 

7250 IF TESTR(s,9)4=:c THEN GOTO 7220 
7240 x2=XP0OS-s 

7250 MOVE x1,YFOS-—s 

7260 IF TESTR(s,9)<>c THEN GOTO 7290 
7270 IF XPOS=x2 THEN RETURN 
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7288 GOTO 7260 
7290 IF TESTR(-s,B)=c THEN GOTO 7209 
7320 GOTO 7290 


Comentário 


Linha 7030: a rotina, tal como acontece com a maioria das outras rotinas de 
«pintura» ou «preenchimento», não funcionará se a cor do pixel onde for instruída 
para começar já for a cor que irá utilizar no preenchimento. 


Linha 7040: a variável S regista o mínimo avanço horizontal ocorrido no decur- 
so do programa. O seu valor pode ser reinicializado se estiverem a ser utilizados ou- 
tros gráficos. 


Linha 7050: em modo gráfico 1, que temos estado a utilizar para este programa, 
os pixels são agrupados por pares. Esta linha assegura que eles sejam agora fixos em 
números pares, independentemente do que possa ter acontecido às coordenadas de 
desenho. 


Linhas 7080-7100: começa agora a busca de uma parte da margem da figura. Es- 
tas linhas podem parecer estranhas, de início, já que parece não se registar movimen- 
to, a não ser uma linha que tranca num ciclo infinito. De facto, tanto TEST como 
TESTR(elativo) deslocam o cursor de gráficos para o local especificado. Assim, a 
primeira linha faz a busca para cima, em linha recta, até ao primeiro pixel da cor 
correcta. Uma vez encontrada parte da margem, a linha seguinte retrocede um passo 
para baixo e para a direita, para verificar se esse ponto está vazio. Se estiver vazio, 
então a primeira linha é chamada de novo, para ver se é possível avançar mais para 
cima. 


Linhas 7130-7160: após terem procurado para cima e para a direita em toda a 
extensão, estas linhas começam a procurar para a esquerda, em busca de um cami- 
nho que as conduza mais acima. No final destas linhas e do grupo anterior, o pro- 
grama terá encontrado o topo da figura, ou então terá chegado a um beco sem saída, 
já que a figura não é regular. 


Linhas 7200-7230: depois de ter encontrado aquele que será o ponto mais alto, o 
processo de «preenchimento» pode começar em pleno. Os comandos MOVER(elati- 
vo) e PLOTR(elativo) são utilizados para desenhar uma linha de pixels, da esquerda 
para a direita, até ser atingida outra parte da margem. 


Linhas 7240-7250: após ter terminado uma linha horizontal, a variável X2 é 
igualada em valor à posição preenchida mais à direita e a posição do cursor é deslo- 
cada de volta ao princípio da linha, embora um pixel abaixo. 


Linhas 7260-7280: esta verificação é efectuada quando o cursor é deslocado no- 
vamente para a esquerda. Se o pixel atingido já estiver colorido na cor do preenchi- 
mento, o programa faz um varrimento da esquerda para a direita, procurando o pri- 
meiro pixel em branco. Se a busca continuar para além do final da linha acima, a 
qual acabou de ser preenchida, então foi atingido o extremo inferior da figura. 
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Linhas 7290-7300: se, ao mover o cursor para baixo e para a esquerda para co- 
meçar um nova linha, se atingir um pixel vazio, o programa procura para a esquerda 
até chegar à margem da figura, antes de começar a preenchê-la. 


Ensaio 


O ensaio mais simples para este módulo é seguir o procedimento de ensaio do 
módulo anterior. A única diferença no resultado deverá ser que, agora, ambos os 
ponteiros se encontram preenchidos com a cor correcta. 


Módulo 1.1.8: Pondo tudo a funcionar 


Neste ponto, deve estar a perguntar por que razão o programa está escrito como 
está e se todas as funções que descrevemos não poderiam ter sido aglomeradas e pos- 
tas a funcionar com a ajuda de alguns GOTO. Infelizmente, é assim que muitos dos 
programas publicados se encontram construídos. 

Neste livro, verificará que todos os programas estão construídos a partir de mó- 
dulos claramente identificáveis. A razão disto reside no facto de os programas escri- 
tos em módulos poderem ser lidos mais facilmente, mais facilmente depurados, de 
poderem ser alterados pela substituição de módulos que trabalhem mais eficiente- 
mente se se aprenderem novos métodos, e de poderem ser acrescentados com a intro- 
dução de mais módulos. Muito há a aprender com estes programas, mas a lição mais 
valiosa de todas será, provavelmente, para as suas futuras programações, a técnica 
da programação modular. 

O corrente módulo é a chave para essa técnica, pois que, quando todos os mó- 
dulos funcionais tiverem sido introduzidos e ensaiados, precisaremos de mais um pa- 
ra controlar o fluxo do programa. De certa forma, o módulo que você está prestes a 
introduzir é o programa — tudo o mais é uma extensão dele. 


Módulo 1.1.8: linhas 1000-1100 

IODO REMETE IEIEIE TIETE SETE IE IEEE TE IE IE TETE IE IEL IEEE IEEE 
1210 REM Control 

1D2D REMETE IEDEIEIETE IE IE TE IE IE IE IE TETE IE IE IEEE III A 
iB3A GOSUB 2000 

1240 GOSUB 3000 

1050 GOSUE 42000 

1267 GOSUEBE 5000 

1970 EVERY 3000 GOSUE 5000 

1990 IF INKEY$<>" " THEN 1280 

1098 CLS 

1190 END 
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Comentário 


Linha 1070: é a chave do programa. Esta é a linha única que fornece ao progra- 
ma a noção de tempo, utilizando o poderoso comando EVERY do 464. A função 
deste comando é permitir ao utilizador especificar um período de tempo e, sempre 
que esse período de tempo se tenha esgotado, interromper qualquer tarefa em decur- 
so, para realizar uma outra coisa. Terminada a interrupção, a tarefa original, seja 
ela qual for, é recomeçada até à interrupção seguinte. O período após o qual ocorre- 
rá a interrupção é cronometrado em quinquagésimos de segundo, pelo que esta linha 
diz ao 464 para chamar o módulo na linha 5000 uma vez por minuto, aumentando 
assim o valor do minuto e redesenhando os ponteiros. 


Linhas 1080-1100: durante o resto do tempo, o programa trancará no ciclo infi- 
nito representado pela linha 1080, aguardando que o utilizador prima a barra de es- 
paços. Logo que tal aconteça, o écran limpa e termina o programa. 


Ensaio 


O programa deverá agora funcionar em pleno. Execute-o, introduza o tempo e 
verá o mostrador do relógio visualizado, com os ponteiros na posição correcta. Pode 
efectuar uma verificação mais rápida do funcionamento da visualização apagando 
dois zeros no valor 3000, na linha 1070. Isto fará que os ponteiros sejam constante- 
mente desenhados e redesenhados. 


PROGRAMA 1.2: RELÓGIO 
Função do programa 


Uma das coisas mais agradáveis acerca dos computadores com visualizações 
gráficas tão boas como as do CPC 464 é que lhes permitem recrear-se na visualização 
de coisas, de forma nova e imaginativa. Após termos introduzido um relógio bastan- 
te normal, este próximo programa dá-lhe uma perspectiva bastante diferente do tem- 
po. Em «Relógio», horas e minutos são representados por duas linhas que deslizam 
da esquerda para a direita e de cima para baixo, dividindo o écran em quatro rectân- 
gulos de diferentes cores. Muito do material de «Relógio» é semelhante ao de «Ana- 
relógio», pelo que as explicações podem ser abreviadas. 

Novos tópicos abordados no programa: 


1) Janelas. 


2) Formatação de números. 
3) Corte de cadeias. 
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Módulo 1.2.1: Inicialização 


Trata-se de um simples módulo de inicialização para estabelecer as cores neces- 
sárias à visualização. O objectivo da janela estruturada na linha 2100 será explicado 
na secção «Comentário» de um próximo módulo. 


Módulo 1.2.1: linhas 2000-2120 


2000 FREMELEEEEEEEEEEEEEEEELEERER RR 
2010 REM Initialise 

PB2D REMIIIEIESEIE IE IEIEIEIEIEIE IE IES RR 
22Z8 MODE 1 


2040 INK 0,1 
2050 INK 1,24 
2060 INF 2,9 
2070 INK 3,6 


20880 EORDER 1 

2090 PAPER B:PEN à 

2100 WINDOW R1,39,39,9,18 
2110 FAPER H1I,O:FEN Hi,i 
2120 RETURN 


Ensaio 


Tal como no primeiro programa, o único ensaio que pode fazer-se nesta altura é 
escrever: 


GOTO 2000[ENTER] 
o que deverá resultar no fim do programa, com uma mensagem de erro «Unexpected 


RETURN». Qualquer outro erro indicará que foi cometida uma falta de introdução 
do módulo. 


Módulo 1.2.2: Introdução do tempo 
O mesmo módulo que para o «Anarelógio». 


Módulo 1.2.2: linhas 3000-3090 


“2900 [TAM E dd OSS a SR DR Da a o RR A 
3010 REM Set Time l 

Z020 [od = E e de a SSD Sa RSRS a aa 
Z0Z0 FRINT "Clock Setting: ":PRINT 

z040 INPUT "Hour (1-12):":hour 
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*050 IF hour:1 OR hour:12 THEN PRINT “x+ 
* Out of range: 'please trv again ***":GO 
TO J040 

060 INPUT "Minute (98-59): "“;minute 

3970 IF minute:B OR minute:59 THEN PRINT 
"*xx** Out of range: please try again ++ 
": GOTO =060 

“080 second=0 

3090 RETURN 


Módulo 1.2.3: Organização da margem do écran 


Este módulo imprime uma grelha para a hora e minuto ao longo da faixa lateral 
esquerda e superior do écran. 


Módulo 1.2.3: linhas 4000-4120 


41000 REM III IDE IE IE IE DE IE IE IDE IE IE IEEE DEDE IE TESE IE DE DEE IE 
48010 REM Set Up Display 

020 REM 36336 EE IE IE IE IE DEDE IE IE IE IE DE IE IE IEEE IEEE E 
4DZB CLS:PRINT E 

49240 FOR 1=5 TO 55 STEF 10 

4050 PAFER Q:PEN 1:PRINT USING"HHA sis 
4060 PAPER 1:PEN B:PRINT USING"AHHR" qi +5S: 
4070 NEXT à 

49890 PAPER D:FEN 1 

4290 FOR 1=1 TO 12 

4100 LOCATE 1,ix2+1:P nu “o 
LO NERI RINT USING" && : 
4120 RETURN 


Comentário 


Linhas 4040-4070: o ciclo imprime os valores de minuto espaçados ao longo da 
parte superior do écran, alternando entre inscrição normal e invertida (cores do pa- 
pel e caneta trocadas). PRINT USING é empregue para assegurar que cada marca de 
cinco minutos seja impressa utilizando três caracteres — visto que todos os números 
têm menos de três caracteres de extensão, PRINT USING acrescentá-los-á com um 
ou dois espaços antes. 


Linhas 4080-4110: a variável de ciclo I é utilizada conjuntamente com o coman- 
do LOCATE, para imprimir as horas ao longo da margem esquerda do écran. 
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Ensaio 


Para que se efectue um eficiente ensaio do módulo, precisará de introduzir uma 
linha temporária: 


4115 GOTO 4115 


O objectivo desta é evitar que o écran faça o desenrolamento (scrolling) para ci- 
ma, imprimindo simultaneamente a mensagem de erro «Unexpetecd RETURN». In- 
troduza agora: 


GOTO 4000[ENTER] 


e deverá ver a grelha impressa em volta dos limites do écran. Prima ESCAPE duas 
vezes quando estiver satisfeito... e não se esqueça de remover a linha temporária. 


Módulo 1.2.4: Criação de uma cadeia de tempo 


Uma das funções do programa será fazer a visualização do tempo, de modo 1n- 
tegralmente digital e também usando o método mais singular descrito anteriormente. 
A cadeia baseia-se em variáveis que serão criadas pelo próximo módulo, embora este 
deva ser inserido em primeiro lugar para possibilitar a execução correcta do seguinte. 


Módulo 1.2.4: linhas 7000-7050: 


TODO REM III IE ICI IEIE TETE TE IEL IEL IEIE IE ICI TETE III 

7010 REM Create Time String 

TOLD REMETE TETE IE IEIE IE IEIEIE IE IEIE IEEE III IEEE IEEE 

7030 tim$=STR$(1900000+hour *1 0900+minute 
*iB0+second) 

7040 tim$=MID$E(tim$f,3,2D)+" "+MIDE(timg, 
IS 2)+400 “"+MIDE(timg,7,2) 

7050 RETURN 


Comentário 
Linhas 7030-7040: um expediente simples para combinar séries de números num 
só número é multiplicar cada um por decrescentes potências de 10, adicionando-os 


depois com uma maior potência de 10. Se, por exemplo, HOUR for igual a 1, 
MINUTE = 36 e SECOND=?, o resultado desta linha seria 1013602. Porquê? Bem, 
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vejamos o valor da hora — o número 1000000 que foi adicionado colocou um O em 
frente do simples «1» correspondente à hora, tal como aconteceu com o «2» dos se- 
gundos. 

Utilizamos agora aquilo que é conhecido por «divisão de cadeia», cortando três 
secções de dois dígitos do número, confiantes em que foi adicionado um O preceden- 
te, caso algum dos valores originais fosse um único dígito. As funções de cadeia na 
segunda linha extraem os três algarismos especificando a posição de partida no nú- 
mero criado e o número de caracteres a serem extraídos. Assim, por exemplo, 
MIDS$(AS$,3,2) representa a parte de A$ que se inicia no carácter 3 e possui dois ca- 
racteres de extensão. 

Se observar os comandos da divisão de cadeia, na linha 7040, poderá ficar con- 
fuso com o facto de o valor da hora ser retirado do carácter 3 para a frente, quando 
seguramente se inicia o dígito 2 do número artificial criado na linha 7030. A resposta 
a esta aparente contradição reside no facto de que, para extrair o valor sob a forma 
de cadeia, transformámos primeiro o número numa cadeia que utiliza a função 
STR$. Ao fazermos isto, o número fica exactamente com a mesma aparência, mas 
pode agora ser tratado como uma cadeia — a única diferença é que, se for um núme- 
ro positivo, é acrescentado um espaço para compensar a falta de um sinal «+». O 
primeiro carácter utilizável de um número que foi transformado em cadeia aplicando 
STR$ é o carácter número 2. 

O resultado desta obra de manipulação consiste no facto de acabarmos com 
uma curta cadeia, sob a forma de: 


TWO DIGIT HOUR/SPACE/TWO DIGIT MINUTE/SPACE/ 
TWO DIGIT SECOND 


Ensaio 


Escreva: 


HOUR = I[ENTER] 
MINUTE = I[ENTER] 
SECOND = I[ENTER] 
GOTO 7000[ENTER] 


Quando o programa lhe responder com um erro «Unexpetecd RETURN», es- 
creva: 


PRINT tim$[ENTER] 


e deverá ver: 


010101 
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Módulo 1.2.5: Ajuste do tempo 
Este módulo é paralelo ao módulo de ajuste do tempo, no programa anterior. 


Módulo 1.2.5: linhas 6000-6160 


DDD REM III IEIEIEIEIEIEICIEIEIE III EI 
69210 REM Adjust Time 

6D2B REM JEI IEIEIEIEIEIEIEIEIEIE IE TETE SETE IEEE IES EEE 
é830 second=second+1 

6040 WHILE second>59 

6050 second=B: minute=minute+1 

óB60 WHILE minute>59 

6970 minute=GB:hour=hour+1 

69080 WHILE hour >1i2 

6298 hour=1 

6108 WEND 

6118 WEND 

4120 WEND 

6138 LOCATE H1,1,1 

£t140 GOSUE 7000 

6150 PRINTHIL,tim$; 

4160 RETURN 


Comentário 


Linhas 6030-6120: estes três ciclos aninhados atravessam claramente a sequência 
de passos que podem ser necessários quando o segundo valor for aumentado em 1. 
Cada ciclo sucessivo apenas será activado se, seguindo a alteração dos segundos, o 
valor do minuto ou da hora tiver de ser ajustado ... isto é, se o limite final do minuto 
ou da hora tiver sido ultrapassado. 


Linhas 6130-6160: após a criação de uma cadeia que representa o tempo, no mó- 
dulo anterior, estas linhas imprimem-se verticalmente. A utilização da janela defini- 
da no módulo de inicialização torna esta questão mais simples. Se se recordar o mó- 
dulo de inicialização, verificar-se-á que a janela definida fica no lado direito do 
ecran e que apenas tem um carácter de amplitude. Resulta daqui que tudo o que for 
impresso nessa janela aparecerá com cada carácter sucessivo por baixo do anterior. 
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Ensaio 
Escreva: 


CLEAR 

SECOND = 59 
MINUTE = 59 
HOUR = 12 

GOTO 6000[ENTER] 


e deverá ser confrontado com uma mensagem «Unexpetecd RETURN», aparecendo 
«01 00 00» impresso verticalmente, na direcção da margem direita do écran, de- 
monstrando que os ciclos na primeira metade do programa são capazes de actualizar 
todos os três valores correctamente. 


Módulo 1.2.6: Visualização do tempo 


Neste módulo, atacamos a tarefa de visualizar no écran os rectângulos que re- 
presentarão o tempo. Aquilo que o módulo pretende alcançar é o efeito de uma linha 
varrendo o écran, para representar os minutos, e uma outra descendente, que registe 
as horas. Isto é conseguido dividindo o écran em quatro secções rectangulares, sendo 
duas vermelhas e duas verdes, e representando os limites destes rectângulos as linhas 
para as horas e minutos, tal como na figura 1.2. 

Sem dúvida que seria possível colocar cada um destes rectângulos directamente 
no écran, no lugar correcto, mas isso é desnecessariamente difícil. Tudo o que é real- 
mente preciso fazer é desenhar na metade superior do écran, em sentido horizontal, 
linhas de espaços coloridos que mudem de vermelho para verde no ponto correcto, e, 
na metade inferior do écran, linhas que mudem de verde para vermelho. Quanto às 
próprias linhas, serão criadas por um simples ciclo e pelo comando LOCATE. 


RECTANGLE 1 RECTANGLE 2 
(RED) (GREEN) 


HOUR LINE 


RECTANGLE 3 RECTANGLE 4 
(GREEN) (RED) 


Fig. 1.2 — Divisão do écran em quatro secções rectangulares 
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Módulo 1.2.6: linhas 5000-5100 


SMA REM 6363 3E3E JE DEDE SETE DEI IE IE IE IE IE IE IE IE IE IEIE IE IEEE IE 

SG0108 REM Display Time 

5020 REM IE IE IEIE IE IE IE IE IEIE IEEE TETE DECIDE EEE RIRH te 

S0Z0 PAPER 2:PEN 3 

S940 FOR i=2 TO 25 

5050 IF i=INT(hour*2+minute/Z0+2) THEN P 
APER 3F:PEN 2 

5068 LOCATE 3,i 

S070 PRINT STRING$ (minutexB. 6,CHR$(145)) 
TAB (39) 

S0B0 NEXT i 

5090 RETURN 

5100 RETURN 


Comentário 
Linha 5030: ao papel é atribuída a cor verde e à impressão a vermelha. 


Linhas 5040-5080: serão impressas vinte e quatro linhas de visualização, repre- 
sentando cada linha meia hora e começando a visualização na linha 2 do écran (nu- 
merado a partir de 0). 


Linha 5050: se o valor do ciclo tiver atingido a posição em que a linha da hora 
deve estar, as cores do papel e da impressão serão invertidas. 


Linhas 5060-5070: estas duas linhas localizam e imprimem uma das linhas longi- 
tudinais à visualização. A função STRINGS é usada para criar uma linha de espaços 
inversos (CHR$(143)) até à linha divisória dos minutos. A palavra TAB no fim da li- 
nha desloca a posição de impressão para o final da linha, atribuindo a cor de papel 
corrente a quaisquer espaços não utilizados. A extensão da cadeia criada basear-se-á 
no valor da variável MINUTE, embora sendo ajustada (multiplicada por 0,6), para 
assegurar que a visualização terá 36 caracteres de amplitude, e não 60. 


Ensaio 
Introduza, em modo directo: 


HOUR = 6[ENTER] 
MINUTE = 30[ENTER] 
GOTO 5000 


Deverá ver o écran dividido em quatro rectângulos sensivelmente iguais, ao lon- 
go das linhas da ilustração supra. O programa parará então, com uma mensagem de 
erro «Unexpetecd RETURN». 
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Módulo 1.2.7: Juntando tudo 


Após ter introduzido todos os elementos funcionais do programa, podemos 
agora construir um módulo de controlo para as executar pela ordem correcta. 


Módulo 1.2.7: linhas 1000-1090 


IDDD REM 63636 IE SE IEIEIEIE TETE TETE IE IE IEEE IE TESE IE IEA SE E E 
1910 REM Control 

1020 REM 3363 IEIEJEIEIE IE IE SEDE IE SEDE IE IE IE SEIS IE TSE SEE EE 
iÍBZ3B ON BREAK GOSUB 1990 

19248 GOSUB 20994 

1950 GOSUB Z000 

iD6B EVERY 50 GOSUB 64008 

1270 GOSUB 40090 

1980 GOSUR 5000: GOTO 1080 

1998 PEN 1 : PAPER QB : CLS : CLEAR : END 


Comentário 


Linha 1030: o comando ON BREAK GOSUB permite-nos definir o que o pro- 
grama fará se a tecla ESCAPE for premida duas vezes. Neste caso, queremos que ele 
salte até ao fim do programa, onde fará o reset das cores, limpará a memória e parará. 


Linha 1060: uma vez mais, o comando EVERY fornece a chave da temporiza- 
ção do programa. Esta chamada do módulo de ajuste do tempo é feita de segundo a 
segundo. 


Ensaio 


Está agora em posição de executar todo o programa, introduzir o tempo e vê-lo 
apresentado no écran. 


PROGRAMA 1.3: TEMPORIZADOR 
Função do programa 


Este programa fornece-lhe dezasseis flexíveis temporizadores de contagem de- 
crescente, cada um dos quais pode ser programado separadamente para fazer soar 
um alarme, após um período de tempo especificado, e visualizar uma curta mensa- 
gem indicativa da finalidade da ocorrência do alarme. 

Quando observar o programa, notará que a sua apresentação é diferente da dos 
programas anteriores. Visto que se trata do programa mais longo e mais complexo 
até agora cucuntrado neste livro, foram inseridas linhas programáticas em branco 
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para o ajudar, neste caso único, a identificar as unidades funcionais que constituem 
o programa. As linhas em branco não são necessárias ao funcionamento do progra- 
ma e podem ser omitidas, se assim o desejar. O programa é um dos poucos a ser 
apresentado desta forma, pela simples razão de que o espaço extra requerido para 
destacar cada programa acarretaria que se tivesse de retirar material ao livro. 


Time now: 06:38:10 


TIMERS 
1) 07:06:00 Wake up 
2) 07:15:00 I said wake ur 
39 07:30:00 This is your last chance 
4) 08:00:00 You missed the train 
S) 17:45:00 Tom and Jerry on 
E) 29:38:08 Phone Grandna 


Fig. 1.3 — Visualização típica, retirada do «Temporizador» 


Novas técnicas abordadas neste programa: 


1) O módulo do menu. 

2) A utilização simples do SOUND (som). 

3) Inserção e apagamento em arrays (quadros). 
4) Criação de um estado de espera. 


Módulo 1.3.1: Inicialização 


É um módulo mais complexo do que aqueles que foram empregues pelos dois 
programas precedentes, reflectindo a maior complexidade do programa no seu todo. 
A maior parte do módulo relaciona-se com a tarefa de montar o écran, incluindo 
duas janelas, para utilização do restante programa. 


Módulo 1.3.1: linhas 2000-2150 


2000 REM SESC SEIEIEIEIEDE IE DEDE IEIE IEEE IE IEEE DETECTED 
2010 REM Initialise 

2027 REM SEI IEIEDEDEIE DEDE IE DEDE DE IE DEDE IE IEEE III II IEEE 
2030 MODE 1 

2240 GOSUE 12000 

2250 WINDOW 1,40,25,25 

2060 FAPER B:FEN 1:CTLS 

2078 WINDOW K1,12,29,1,l 

2880 FAPER H1,0:PEN HK1,1:CL5S Hi 

2090 PRINT HKl,"Time now: " 


O AMSTRAD FUNCIONAL 35 


2190 WINDOW 42,1,40,53,23 

2110 PAPER H2,Z:PEN H2,2:CLS H2:PRINT E2 
21298 SPEED INK 50,25 

2130 DIM thour (15) ,tminute(15) ,ttime(i5) 
smessagefg (15) 

2140 ttime(B)=-—1 

2150 RETURN 


Comentário 


Linha 2040: em contraste com programas anteriores, este módulo não conterá 
quaisquer instruções INK. Isto prende-se com o facto de as cores INK (tinta), em 
certas ocasiões, virem a mudar, no decurso do programa. Este GOSUB chama a pe- 
quena rotina que determina as cores iniciais: esta sub-rotina será introduzida imedia- 
tamente a seguir à rotina corrente. 


Linha 2050: o comando WINDOW (janela) pode ser usado de duas maneiras, 
quer para reservar uma área de écran que possa ser chamada utilizando um «número 
de fluxo» — um método que foi utilizado no programa «Relógio» — quer simples- 
mente especificando a dimensão da janela. Isto define a janela ausente, ou aquela em 
que é feita normalmente a impressão. A janela ausente é aqui definida como uma 
única linha, ao fundo do écran. 


Linhas 2070-2120: estas linhas definem mais duas janelas, uma delas (& 1) sendo 
uma única linha no topo do écran e a outra (&2) o corpo principal do écran. O co- 
mando SPEED INK é utilizado quando um número INK possui duas cores atribuí- 
das e especifica a velocidade (speed) a que as letras pintadas nessa tinta cintilam 
(flash) entre as duas cores. 


Linha 2130: são os quadros em que o programa irá trabalhar. A sua utilidade 
será descrita no decurso do comentário sobre a parte principal do programa. 


Módulo 1.3.2: Cores do écran para o início 


Tal como foi explicado no comentário ao último módulo, as cores do écran po- 
dem modificar-se durante o programa. Este pequeno módulo estabelece as cores ini- 
ciais. 

Módulo 1.3.2: linhas 12000-12080 


12000 REM st IEIEIEIE TETE IE IE IE TETE IE IEIE IE DEDE DEDE DEDE IIE E 


12010 REM Turn Screen On 
12020 REM SEIEIEIEIEIEIE IE IE IEIE DEDE TETE IE IE DEDE IE TETE III IEEE 


12078 INK 0,1 
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2040 INK 1,24 
120250 INK 2,26 
12860 INK 3,2 

12070 BORDER 1 
12080 RETURN 


Módulo 1.3.3: Marcação do tempo 


E o módulo padrão encontrado no «Anarelógio», com a excepção de que o tem- 
po é introduzido de acordo com o relógio de 24 horas. 


Módulo 1.3.3: linhas 3000-3100 


IODO REM IEEE IE IE DEDE DEDE DEDE DEDE DEDE DE DEDE DEDE IE DEDE IE DEDE DIE 
3010 REM Set Time 

TD2D REM sed DE IE IE DE DEDE DEDE DEDE DEDE DE DEDE IDE DEDE DEDE DEDE DEDE IE IE 
“2:80 CLS: PRINT"Clock Setting:":PRINT 
2040 INFUT "Hour (0-23):":hour 

3050 IF hour<B OK hour :253 THEN PRINT "xx 
* Out of range: please try again ***": 60 
TO J940 

1260 INPUT "Minute (9-59):";minute 

ZJ970 IF minuteíQB OR minute>59 THEN PRINT 
"xxx Out of range: please try again *x* 
"GOTO Z260 


“080 second=Q 


1090 


tim=hour*692+minute 


100 RETURN 


Módulo 


1.3.4: Ajuste do tempo 


É um módulo semelhante aos anteriores módulos de ajuste do tempo. 


Módulo 
144 
14010 
140024 
14038 
14040 
140564 
140657 
14470 
14980 
149890 
14100 


1.3.4: linhas 14000-14180 

EE DADE SEDE DE SEDE DEDE DE DEDE TETE IDE IE DE TE DEDE IE IE DEDE IEEE 
REM Adjust Time 

RE Mt 36 SEE DEISE DEDE IDEAIS DEDE IEEE DO DE DETIDO DE EE 
second=second+5 

WHILE second>59 
epcond=f:minute=minute-+l 

WHILE minuter59 

qi mnute=: hour=hour+i 

WHILE hour 22% 

hour=B 

WEND 
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14110 WEND 

141290 WEND 

14130 LOCATERI 11,1 

141484 h=hour: m=minute:s=second: GOSUR 150 


14150 PRINTHI ,tim$; 
14160 tim=hour*60+minute 
14170 GOSUE 9000 

14199 RETURN 


Módulo 1.3.5: Formatação do tempo 


Tal como no programa anterior, o módulo de ajuste do tempo funciona em con- 
jugação com este, que transforma o tempo corrente numa forma compreensível pelo 
utilizador. 


Módulo 1.3.5: linhas 15000-15050 

15D0D REM III SETE TETE IE IEIE IE IEIEIEIEIE IE IE IEEE ICI IE IE IEEE 
15010 REM Create Time String 

15020 REM 33 SEIEIEIEIEIEIE TE DEDE TETE TETE IE IEIE IE IEIEIE IE IE IEEE 
15030 tim$=5STR$ (1000000+h+%10000+m*100+s) 
15040 tim$=MIDE(tim$,3,2D)+":"+MIDE(tim$, 
SD) +"2"+MIDE(timg,7,2) 

15050 RETURN 


Módulo 1.3.6: Ensaio dos temporizadores e activação do alarme 


Este módulo é parte integrante do programa, de modo que permite que outras 
partes do programa introduzam um estado de espera, durante o qual o utilizador po- 
de fazer uma introdução de dados. No entanto, e simultaneamente, o programa está 
constantemente a efectuar o trabalho de selecção dos temporizadores, para verificar 
se há situação para um alarme. Se for necessário, fá-lo-á soar. Vamos agora introdu- 
zir o módulo, ainda que não seja integralmente utilizado até que vários módulos pos- 
teriores tenham sido introduzidos, porque constitui uma sub-rotina essencial ao mó- 
dulo de menu que se segue. 


Módulo 1.3.6: linhas 9000-9300 
SADO REM III IEIEJEIEIEIE IE IE DE DEDE IE DEDE IE IE IE IE IE IDE IEEE IE 


9010 REM Check Timer 
SD20 REM E IEJIEIEIEIEIEIEIE IE IE IEEE DE IE DEDE IE IEEE IE IE ICI IE IEEE 


90392 IF ttime(B)<>tim THEN RETURN 
9040 CLS H2:PRINT &2 


9050 GOSUB 12000: INK 2,26,7 
9060 PRINT KZ, TAB(19); "ALARM"; TAB(IP); "= 
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====". | OCATE H2,1i,ll 

90790 mlen=LEN (messages (B)) 

9280 PRINT H2, TAR(1I9-mlen/2); STRINGS (mle 
n+4 vet) 

9090 FRINT H2,TAB(I9-mlen/2);"*": TAR(22+ 
mlen/2); "x" 

9190 PRINT H2, TAB(I9-mlen/2);"* ":messag 
es(B);! *! 

9114 PRINT H2, TAB(Ii9-mlen/2);"*"; TAR(22+ 
mlen/2); "x" 

9120 PRINT 42, TAR(I9-mlen/2): STRING$(mle 
n+4," x") 

9130 note=25 

9140 WHILE INKEy$&="" AND ttime(B)=tim 
9150 WHILE (SQ(1) AND 7) >0 

9140 SOUND i,note,is,is 

9170 note=750-note 

91890 WEND 

9199 WEND 

S220 sounded=1 

9210 FOR i=i TO timers-i 

9220 thour (i-i)=thour ti) 

9230 tminute(i-l)=tminuteti) 

9240 ttime(i-l)=ttimeti) 

230 messagef(i-l)=messageg ti) 

9260 NEXT à 

92:74 timers=timers-li 

9280 IF timers=D THEN ttime(B)=-1 

9290 INK 2,26 

9300 RETURN 


Comentário 


Linha 9030: é a nossa primeira referência funcional ao quadro TTIME, o qual é 
utilizado para armazenar os tempos a que os temporizadores devem expirar. Módu- 
los subsequentes, que permitirão ao utilizador regular os temporizadores, assegura- 
rão que o temporizador inicial seja sempre colocado na primeira linha do quadro, no 
elemento 0. Na grande maioria dos casos em que esta sub-rotina é chamada, a execu- 
ção terminará nesta linha. Só se o tempo corrente, TIM (que foi calculado pelo mó- 
dulo de ajuste do tempo), for o mesmo que o tempo de alarme armazenado na pri- 
meira linha de TTIME é que o alarme soará. 


O AMSTRAD FUNCIONAL 39 


Linhas 9040-9120: estas linhas parecem bastante mais complexas do que são, de 
facto. O seu objectivo é imprimir a palavra «ALARM» na janela & 2 (a parte princi- 
pal do écran), juntamente com qualquer mensagem associada ao temporizador espe- 
cífico. A mensagem será rodeada por uma margem de asteriscos e será centrada no 
écran pela impressão do primeiro carácter na posição determinada pela fórmula: 


MIDDLE POSITION ON SCREEN — LENGTH OF STRINGTO PRINT /2 


Pode ver esta fórmula empregue nas linhas 9090-9120, onde assume a forma 
«90-mlen/2». 


Linhas 9130-9200: estas linhas fazem soar (SOUND) um alarme de dois tons pe- 
lo período de um minuto — enquanto o tempo-limite do temporizador for o mesmo 
do tempo corrente em minutos. O alarme cessa se for premida uma tecla. O mais in- 
terior dos dois ciclos toca a nota efectiva, assegurando a linha 9150 que cada nota se- 
ja retida até que a função SQ indique que a nota anterior. parou de soar. À variável 
SOUNDED é atribuído o valor 1, para indicar ao módulo do menu que foi despole- 
tado um alarme. Veja o comentário sobre o menu para saber da razão subjacente a 
isto. 


Linhas 9210-9280: após ter soado um alarme, estas linha retiram-no dos qua- 
dros que armazenam os tempos e mensagens para os temporiza lores. Isto é efectua- 
do deslocando todos os dados do segundo temporizador em diante um espaço para 
baixo, obliterando assim o primeiro item, o qual acabou de soar. A variável TI- 
MERS regista a quantidade de temporizadores correntemente regulados e, desta for- 
ma, deve ser reduzida em 1. Finalmente, se já não restarem temporizadores, a linha 
9280 assegura a colocação de um tempo impossível na posição do primeiro tempori- 
zador, para que ele não desperte a uma hora indesejada. 


Módulo 1.3.7: O «menu» do programa 


Chegamos agora a uma técnica que desempenhará um vasto papel nos progra- 
mas incluídos neste livro — o «menu». Nos programas que conduziram a este, o 
controlo do programa foi deixado para ele próprio. Uma vez executado (RUN), um 
módulo de controlo assumiu o comando e ditou o fluxo de execução do programa, 
até à indicação para terminar por parte do utilizador. 

Este programa (e muitos dos que se seguem) é diferente, já que não há uma úni- 
ca directiva quanto ao fluxo do programa. O programa apresenta uma variedade de 
possibilidades ao utilizador, e deverá ser este que, em grande parte, dita o que acon- 
tece. Isto é concretizado através de um módulo conhecido como «menu do progra- 
ma», o qual apresenta ao utilizador uma lista das opções que o programa fornece e 
permite ao utilizador especificar qual delas deverá ser activada. Numa parte mais 
avançada do livro, programas mais complexos fazem uso de vários menus, reflectin- 
do cada um deles a variedade de escolhas sob um cabeçalho principal. De momento, 
no entanto, ficaremos com o único menu necessário a este programa. 
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Módulo 1.3.7: linhas 4000-4190 


ABDO REM 33 IEIEIEIEIEIE TETE TETE IE IE IEEE IE EI IEEE IEEE 
4210 REM Menu 

4020 REMEDIAR RRI 
4030 WHILE x$<>"5" 

4040 CLS H2:PRINT &2 

4050 PRINT H2, TAB(19); "MENU"; TAB(19); "== 
==": PRINT 2 

40260 PRINT 42," 1) Set timer" 

4070 PRINT H&2," 2) Delete timer" 

4080 PRINT H2," 53) Display timers and wa 
4090 PRINT 42," 4) Elank screen and wait 


4100 PRINT H2," 5) Stop" 

4110 sounded=B:x&="" 

4120 WHILE x&="" AND sounded=0 
4130 x$=INKEY+ 

4140 IF sounded THEN x$="" 
41524 WEND 

4160 ON VAL (=$) GOSUB 5000, AVDA, 7007, BAN 
[] 

4170 PRINT 

4182 WEND 

41990 RETURN 


Comentário 


Linhas 4030-4170: este ciclo continuará a visualizar o menu de cada vez que a 
execução regressar a este módulo, até que o utilizador introduza o número 5. Logo 
que isso aconteça, a execução do programa regressará ao módulo de controlo, o qual 
ainda não introduzimos. 


Linhas 4040-4100: estas linhas imprimem a lista de opções programáticas na ja- 
nela 42, a janela principal que ocupa a maior parte do écran. 


Linhas 4110-4150: em condições normais, neste ponto do módulo do menu, de- 
veria haver uma vulgar instrução INPUT. A razão da inclusão deste conjunto mais 
complexo de linhas para chamar o módulo anterior deve-se ao nosso desejo de proce- 
der a uma contínua amostragem do estado dos temporizadores, mesmo com o menu 
no écran. Isto não pode fazer-se se for utilizada a instrução INPUT, já que uma IN- 
PUT tranca o programa até ser premido ENTER — nem mesmo EVERY pode inter- 
romper uma INPUT. 
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O método empregue pelas linhas é determinar a variável a utilizar para armaze- 
nar a entrada de dados do utilizador (X$) como uma cadeia vazia, continuando a 
executar o ciclo enquanto aquela permanecer vazia. Se o utilizador premir uma tecla, 
isso será detectado por INKEYS$, na linha 4130, e o carácter associado a essa tecla 
será armazenada em X$, terminando assim o ciclo. 

No entanto, enquanto decorre esta amostragem do teclado, o módulo anterior é 
constantemente chamado para verificar se é preciso despoletar um alarme. A propó- 
sito, a variável SOUNDED tem uma utilidade bastante clara. Normalmente, quando 
o módulo anterior é chamado, nada acontece, pelo que o menu pode continuar sem 
alterações. Se for despoletado um alarme, no entanto, o menu será apagado do écran 
para ser visualizado o alarme e uma mensagem — neste caso, a SOUNDED será atri- 
buído o valor 1, para indicar ao módulo do menu que este tem de ser reimpresso no 
écran. 


Linha 4140: os dados introduzidos pelo utilizador são, se possível, traduzidos 
para um número, utilizando a função VAL. O comando ON... GOSUB escolhe da 
lista de destinos aquele que corresponde ao número introduzido pelo utilizador. Se 
for introduzido um número que esteja fora do âmbito da lista de destinos GOSUB, 
isto é, se o número for O ou maior do que a extensão da lista, o comando ON...GO- 
SUB não é activado e o ciclo visualiza o menu novamente. 


Ensaio 


Antes de ensaiar o programa até este ponto, é mais razoável introduzir o curto 
módulo de controlo, que vem a seguir. 


Módulo 1.3.8: O módulo de controlo 


Este é muito mais simples do que em muitos programas, porque a maior parte 
do trabalho é suportado pelo menu. No entanto, e uma vez mais, a temporização do 
programa é feita por um comando EVERY intrínseco a este módulo. Neste caso, a 
temporização é feita de cinco em cinco segundos, tal como fizemos notar no comen- 
tário ao módulo de ajuste do tempo. 


Módulo 1.3.8: linhas 1000-1080 


1000 REM 353 33EIEJEIEIEIEIEDE IE TETE IE IE IE DE IE IE IE IE IEEE IE IE IE 
1210 REM Control 

19220 REM 33 JEIEIE IE IE TETE IE IE DE IE IE IE IEEE IE IEEE ICI TE EE 
1830 GOSUBE 3000A 

1240 GOSUE 14000 

1950 GOSUB 2000 

1260 GOSUE 4000 

1970 MODE 1 

1280 END 
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Ensaio 


A execução do programa deverá agora resultar na solicitação de introdução do 
tempo, seguida do menu do programa. Introduza alguns números sem validade para 
confirmar que não são aceites. A especificação das opções 1 a 4 do programa resulta- 
rá na paragem deste, com um erro «Line does not exist» (linha não existente), en- 
quanto a opção 5 limpará o écran e terminará o programa. 


Módulo 1.3.9: Visualização das marcações correntes do temporizador 


O objectivo do módulo é imprimir, de forma ordenada, os tempos para que 
qualquer um dos dezasseis temporizadores estão correntemente regulados. De mo- 
mento, visto que não introduzimos o módulo que nos permite marcar os valores do 
temporizador, a visualização será nula, embora a inserção presente do módulo possi- 
bilite o ensaio do módulo que regula os temporizadores mal ele seja introduzido. 


Módulo 1.3.9: linhas 7000-7170 

7002 REM 33 IEIEDEIEDE DEDE IE DEDE DEDE IDE IE DEDE DEDE DE DEDE IE IE III 
7010 REM Display Timers and Wait 

7020 REM III IEIEIE IE IEDE IE TETE IE DEDE IE DE IE DEDE IEEE IE IE III II 
700 E$="" 

7040 WHILE k$="" 

“050 CLS H2:PRINT 42 

7060 FRINT 42, TAB(18B);"TIMERS": TAR(ÍB):” 
======" PRINT &2 

7070 FOR 1=0 TO timers-i 

70892 h=thour (i):m=tminute(i):s=B:GOSUE 1 


7090 PRINT H2, USING " HH) &egi+ristim$+" 
"+messagei(i) 

7100 NEXT à 

71174 sounded=Q 

7120 WHILE k$="" AND sounded=B 
7130 E4=INKEYS 

74140 IF sounded=1 THEN k$="" 
7150 WEND 

7140 WEND 

7165 GOSUE 60000 

7170 RETURN 


Comentário 


Linhas 7030-7040 e 7160: a visualização continuará até ser premida uma tecla. 
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Linhas 7070-7100: como salientámos anteriormente, o número de temporizado- 
res correntemente regulados é registado pela variável TIMERS. Este ciclo imprime as 
marcações do número de temporizadores indicado por TIMERS, utilizando o módu- 
lo 1.3.5 para criar uma apresentação em cadeia do tempo registado nos quadros 
THOUR e TMINUTE, juntamente com PRINT USING, para assegurar um quadro 
ordenado. O «&» na instrução PRINT USING pode confundir algumas pessoas — o 
seu objectivo é permitir-nos mencionar um número e depois uma cadeia, na mesma 
instrução. Se não fosse o «&», seria gerado um erro «Type mismatch» (escrita in- 
compatível) quando o programa tentasse interpretar TIM$ como um número da li- 
nha 7090. 


Linhas 7110-7150: são um estado de espera, tal como no menu, durante o qual 
um comando EVERY fará a amostragem dos temporizadores. Note-se que, se ocor- 
rer um alarme durante a operação deste ciclo e o utilizador premir uma tecla para 
parar o alarme, a visualização dos temporizadores não será terminada. A linha 7140 
assegura que, se a variável SOUNDED indicar que um alarme foi despoletado, uma 
tecla tenha de ser premida de novo, antes que o programa regresse ao menu. 


Ensaio 


Escreva: 
CLEAR:TIMERS =5:GOTO 7000[ENTER] 


Deverá obter a visualização dos tempos para os cinco temporizadores, embora o 
tempo para cada um seja «00-00-00» e não haja mensagens junto a eles, já que ne- 
nhuma foi introduzida. Se premir qualquer tecla, isso resultará numa mensagem de 
erro «Unexpected RETURN». 


Módulo 1.3.10: Introdução do tempo para um temporizador absoluto 


Dentro de momentos, introduziremos o módulo que permite a marcação dos 
temporizadores. Mas, antes de o fazermos, são necessários mais dois módulos, para 
permitir ao utilizador introduzir o tempo-limite para um temporizador de uma ou 
duas formas diferentes. Ao marcar um temporizador, o utilizador é solicitado a es- 
pecificar se o tempo a ser introduzido é um tempo absoluto (isto é, se é o minuto e 
hora a que o alarme deve ser despoletado), ou se é um tempo de contagem decrescen- 
te (isto é, se o alarme deve ser despoletado após o número especificado de horas e 
minutos). O módulo corrente trata da introdução de tempos absolutos e é semelhan- 
te ao módulo utilizado para introduzir o tempo principal. 


Módulo 1.3.10: linhas 11000-11070 
110DD REM 3363 IE IE IE IE IE DE IE IE DE IE IE IE IE IE IEEE II IEEE 


11910 REM Input Absolute Timer 
11020 REM 33 JESEIEIEIEIE TETE IEIEIEIE TETE IE IE IEIEIE IE IEEE IE IEEE 


11030 INPUT "Hour (Q to 23):",thour 
119242 IF thour<Z OR thour>23 THEN PRINT 
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"“xxx*s OUT OF RANGE: PLEASE TRY AGAIN sx 
*"::FOR i=i TO 2000: NEXT i:GOTO 11030 
11050 INPUT "Minute (BZ to 539):",tminute 
119064 IF tminutec<Q OR tminute>59 THEN PR 
INT "ex*x* OUT OF RANGE: PLEASE TRY AGAIN 
***e"::FOR i=i TO 2000:NEXT i:GOTO 1105 
[4 

11070 RETURN 


Módulo 1.3.11: Introdução do tempo para um temporizador 
em contagem decrescente 


Esta segunda forma de temporizador é inevitavelmente mais complicada, visto 
que, em vez de se lhe dizer apenas o tempo em que o alarme deve ser despoletado, o 
programa tem de calcular esse tempo adicionando qualquer período que o utilizador 
especifique para o tempo corrente. 


Módulo 1.3.11: linhas 10000-10090 


1IBZODA REM III IE DEDE IE IE DEDE IE DECIDED DEDE DEDE DEDE DEDE DEDE IE IE 
199010 REM Input Countdown Timer 

IDD2D REM SIE DEIEIEIEIE DEI IE DEDE IE DEDE TETE IE IE DEI IE IEEE IEEE 
1206:0 INFUT "Hours to go (2 to 25):",tho 
ur 

19040 IF thour<Q OR thour:>:23 THEN PRINT 
“xx OUT OF RANGE: PLEASE TRY AGAIN xxx 
*"::FOR 1=1 TO 2000: NEXT 1:GOTO 100530 
19050 INPUT “Minutes to go (DB to 59):",t 
minute 

10060 IF tminute:iB OR tminute>59 THEN PR 
INT "x*** OUT OF RANGE: PLEASE TRY AGAIN 
****"::FOR 1=1 TO 2000: NEXT 1:GOTO 1005 
4) 

10070 tminute=tminute+minute: IF tminute: 
59 THEN tminute=tminute-ó0B: thour=thour+1 
122892 thour=thour+hour: IF thour>253 THEN 
thour=thour-Z24 

10994 RETURN 


Comentário 


Linhas 10070-10080: o valor da hora e minuto correntes é calculado pelo módu- 
lo de marcação de tempo, o qual será chamado regularmente por uma instrução 
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EVERY, quando todo o programa tiver sido introduzido. As horas e minutos intro- 
duzidos pelo utilizador (THOUR e TMINUTE) podem, portanto, ser acrescentados 
às variáveis HOUR e MINUTE. 


Módulo 1.3.12: Marcação dos temporizadores 


Após termo-nos dotado da capacidade de introduzir o tempo para um tempori- 
zador, podemos passar ao módulo principal, que permite ao utilizador especificar as 
marcações para os dezasseis temporizadores. Note-se que este módulo utiliza INPUT 
para obter os três itens de dados que necessita, pelo que, enquanto o módulo estiver 
a operar, os temporizadores não serão alvo de amostragem e qualquer temporizador 
a que caiba dar um alarme não soará, até que este módulo tenha sido completado. 

Note também que não pode deixar a máquina à espera indefinidamente, aguar- 
dando resposta a uma instrução INPUT. Enquanto isto se passa, o sistema regista o 
número de vezes que deveria ter efectuado o comando EVERY, o qual será usado, 
eventualmente, para marcar a temporização do programa. É possível que venha a 
utilizar todo o espaço reservado para este propósito e, por cada EVERY evitado, se- 
rá esquecida uma chamada ao módulo de temporização, pelo que o tempo registado 
pelo programa será incorrecto. 


Módulo 1.3.12: linhas 5000-5300 

IDO REM III SETE IEIEIEIEIEIEIEIEIEIE IE IE TETE IE IE TESE DEI IE IEEE 
9010 REM Set Timer 

IDLD REM III IE III IEIEIEIEIEIE IEEE IEIE IE III IEICILIE IEEE 
90350 IF timers=il6 THEN FRINT " RI 
** NO TIMERS FREE sxxxx6%458": RETURN 

3040 INPUT “Countdown (y/n)"; down 

9050 IF LOWER$(downg)="y" THEN GOSUE 190 
20 ELSE GOSUB 11000 

I060 ttime=thour*60+tminute 

39070 rtimi=ttime-tim: IF rtimi<=0 THEN rt 
imi=rtimi+1440 

3084 FOR i=B2 TO timers-l 

3090 rtimê=ttime(i)-tim: IF rtim2<0 THEN 
rtim2=rtim2+1440 

3100 IF rtimi>rtim2 THEN NEXT i 

9110 IF i<timers AND ttime=ttimeti) THEN 
PRINT " *X**4** TIMER ALREADY SET sx+x 
***":FOR j=i TO 2000: NEXT: RETURN 

39120 tnum=i 

3130 messaget="" 

5140 WHILE messaget="" 

3150 INPUT "Message"; messages 

3160 IF LEN(messaget) >25 THEN PRINT “xxx 
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MESSAGE TOO LONG (25 CHARS MAX.) xx: 
FOR i=1 TO 2000:NEXT izmessages="" 
5170 WEND 
5189 PRINT 
5190 FOR i=timers-i TO tnum STEP -i 
3200 thour (i+i)=thour (i) 

5210 tminute(ti+i)=tminutet(ti) 
S220 ttime(li+l)=ttimeti) 

52350 messagef(i+i)=messagezt(i) 
5240 NEXT à 

Sº2S0 timers=timers+i 

52498 thour (tnum)=thour 

S270 tminute (tnum)=tminute 
5280 ttime(tnum)=ttime 

5290 messages (tnum) =messages 
5300 RETURN 


Comentário 


Linha 5030: se o número de temporizadores já marcados for igual a 16, o máxi- 
mo disponível, então é mostrada uma mensagem de erro e o programa regressa ao 
menu. 


Linhas 5040-5050: o utilizador é solicitado a especificar se é necessário um tem- 
porizador de contagem decrescente. A linha 5050 traduz a resposta do utilizador pa- 
ra minúscula, se necessário, para que «Y» ou «y» possam ser tratados, chamando 
depois um dos dois módulos anteriores. 


Linhas 5060-5070: o tempo de retorno do módulo de entrada do tempo relevan- 
te é convertido num número representativo da quantidade de minutos decorridos 
desde o princípio do dia, sendo depois subtraído o tempo corrente em minutos. Se o 
resultado for menor que zero, então o tempo especificado pelo utilizador destina-se 
ao dia seguinte, sendo adicionados 1440 minutos (um dia, expresso em minutos). Por 
exemplo, se o tempo corrente for 1830 (18.30h.) e o temporizador tiver de ser marca- 
do para 1800 (18.00h.), então o programa parte do princípio de que o alarme deve 
soar aos 1800 no dia seguinte. 


Linhas 5080-5120: a razão da presença deste ciclo está em que o programa arma- 
zena todas as marcações dos temporizadores pela ordem correcta, ou seja, o primei- 
ro temporizador a ser marcado será também o primeiro da linha. Para conseguir 
isto, o novo item tem de ser comparado, em primeiro lugar, com os tempos de tem- 
porizadores existentes, para ver qual o lugar onde deve ser colocado na lista. 

Se o(s) primeiro(s) temporizador(es) da lista tiver(em) um tempo menor do que 
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o tempo corrente (isto é, se estiver marcado para despoletar no dia seguinte), então 
também lhe serão adicionados 1440 minutos, visando a comparação. Pode encon- 
trar-se, eventualmente, um tempo que seja posterior à nova marcação do temporiza- 
dor e a instrução IF, na linha 5100, termina o ciclo FOR. Se não houver qualquer 
marcação presente que seja posterior à nova marcação, então o ciclo prossegue até 
que I seja igual a TIMERS, pois que, quando um ciclo termina de forma natural, a 
sua variável é acrescida uma última vez, dado que a execução abandona o ciclo. 
O valor de I apontará agora, portanto, quer para uma marcação presente do 
temporizador, posterior à nova marcação, quer para o primeiro espaço após o final 
da lista corrente de temporizadores. É então efectuado mais um ensaio, para verifi- 
car se a posição indicada já possui um temporizador que esteja marcado para o tem- 
po acabado de introduzir pelo utilizador. Se assim for, é gerada uma mensagem de 
erro e o programa regressa ao menu. Desde que este erro não seja encontrado, 
TNUM, o local em que o novo temporizador deve ser inserido, é igualado a I. 


Linhas 5130-5170: é solicitada a mensagem que vai ficar associada ao tempori- 
zador. 


Linhas 5190-5240: visto que sabemos onde o novo temporizador deve ser colo- 
cado no âmbito da lista, podemos agora deslocar todos os temporizadores existentes 
posteriormente a essa posição uma posição para cima, criando assim um intervalo. 
Cada temporizador necessita de quatro itens de informação para ser registado, e es- 
tes são guardados nos quadros THOUR, TMINUTE, TTIME e MESSAGES. 


Linhas 5250-5290: a variável TIMERS é agora aumentada, para indicar que foi 
acrescentado outro temporizador, e os quatro itens necessários são inseridos nos 
quatro quadros, na posição indicada por TNUM. 


Ensaio 


Nesta altura, deve poder ensaiar o módulo executando todo o programa. Quan- 
do dispuser do menu, especifique a opção 1 e introduza: 


Y,0, 1,e TEST 


em resposta às quatro solicitações, após o que o programa deverá regressar ao menu. 
Especifique agora a opção 2 para visualizar os temporizadores, e deverá verificar que 
ao temporizador O foi atribuído um valor algo menos de um minuto adiantado ao 
tempo corrente (este adiantamento depende da sua rapidez), mais a etiqueta 
«TEST». Não se incomode a esperar pelo som do alarme, pois ainda não introduzi- 
mos o módulo que realiza essa operação. 


Módulo 1.3.13: Limpeza do écran 


Todo o objectivo deste programa aponta para a sua execução nos bastidores, 
para que possa actuar como um sistema de temporização. Não há qualquer proble- 


48 DAVID LAWRENCE E SIMON LANE 


ma em deixar ligado o CPC 464 para realizar aquele propósito, mas deixar ligado o 
monitor e visualizar o mesmo écran durante muito tempo seguido pode levar a que 
algumas das partes mais brilhantes do que estiver a ser visualizado se tornem ligeira- 
mente cauterizadas no écran, de modo que apareçam como fantasmas permanentes 
sobre o que o écran apresentar. (Não fique em pânico por causa disto; não é algo que 
aconteça apenas porque se esqueceu do 464 e do monitor ligados durante algumas 
horas — estamos a falar de utilização contínua do mesmo desenho de écran durante 
um longo período.) 

Para ultrapassar este possível problema, o programa tem incluído um módulo 
de protecção do écran que limpa este até que seja premida uma tecla. Enquanto o 
écran estiver em branco, os temporizadores serão constantemente amostrados e 
quaisquer alarmes que despoletem soarão normalmente. 

O módulo corrente é utilizado para limpar o écran colocando todas as tintas na 
cor de fundo. O próximo módulo chama este e cria um estado de espera até que o 
écran deva ser reactivado. 


Módulo 1.3.13: linhas 13000-13080 

13000 REM SS SEJEIEIEIEIEIEDE IE DE IEIEIE IE IE IE IE IE IEEE IE IEEE IE 
13010 REM Turn Screen Off 

13020 REM SIE IEIEIEIEIE TETE IE IEIEIE TETE IE IE IEIE TETE IEEE ICI IEEE 
13030 INK 2,0 

13040 INK 1,0 

13050 INK 2,0 

13060 INK 3,0 

13070 BORDER Q 

13980 RETURN 


Módulo 1.3.14: Um estado de espera com um écran em branco 


Este módulo não é mais do que um ciclo de espera, do género do que já vimos 
no menu e nos módulos de visualização dos temporizadores, acrescido do facto de 
que, quando o módulo é chamado, limpa o écran, e quando é premida uma tecla res- 
tabelece as cores iniciais. 


Módulo 1.3.14: linhas 8000-8130 


BODD REM 6365 IEEE IE IE IE DEDE IE DEDE IE IE IE IE IE IE IE IEEE IEEE DEDE IE 
88180 REM Elank Screen and Wait 

BD2O REMETE DEI IEEE IE IE IE IE IE IE IE IEEE IE IE IEEE IEEE AE EE 
BDZB kE="" 

8040 WHILE k$&="" 

8050 GOSUE 13000 

8060 sounded=Q 

8270 WHILE kf="" AND sounded=Q 
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B090 k$=INKEY$ 

8298 IF sounded=1 THEN k$="" 
8190 WEND 

8110 WEND 

B120 GOSUB 12000 

8130 RETURN 


Ensaio 


Regule um ou dois temporizadores para períodos curtos e, depois, chame o esta- 
do de limpeza do écran, a partir do menu. Ainda que não possa ver o estado dos 
temporizadores, deverá verificar que os alarmes soam de forma normal. 


Módulo 1.3.15: Eliminação de um temporizador 


Em certos casos, o utilizador pode perfeitamente achar que um temporizador já 
não é necessário ou está incorrecto. Este módulo dá oportunidade de remover tal 
temporizador. A técnica de base é importante em programas de tratamento de da- 
dos, embora se trate de uma técnica simples, que consiste em provocar o colapso do 
ficheiro no temporizador a eliminar. 


Módulo 1.3.15: linhas 6000-6140 


LDO REMELLEEKREELLEELARARIA AC CLA TRAC dA 

69010 REM Delete Timer 

6020 REMELEELEEEEEELERAERELC RARA CA AA 

6030 IF timers=9 THEN FRINT erenas+ 
* NO TIMERS SET <xee4444":FOR 1=1 TO 299 
Q: NEXT: RETURN 

6040 INFUT "which timer";tnun 

6050 IF tnumztimers THEN PRINT ...< 
**** NO SUCH TIMER sexesese" FOR 1=1 TO 

2000: NEXT: RETURN 

e060 FOR i=tnum TO timers-t 

2970 thour (i-ij=thour (i) 

960 tminute(ti-l)j=tminutet(ir) 

6090 ttime(li-l)i=ttimeti) 

6100 messaget(i-il)=messagef(i1) 

6110 NEXT à 

6120 timers=timers-l 

61Z0 IF timers=90 THEN ttime(d)=0 

6140 RETURN 
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Comentário 


Linhas 6030-6050: são as mensagens de erro, caso o utilizador introduza um nú- 
mero de temporizador que não exista. 


Linhas 6060-6110: o processo de colapso, que consiste em deslocar para baixo 
um espaço tudo o que estiver acima do item a ser removido. 


Ensaio 


Deverá agora poder marcar um temporizador e chamar depois a opção 2 do me- 
nu para o apagar, antes de ele se ouvir. Se este ensaio for satisfatório, então o pro- 
grama estará pronto a ser utilizado. 


PROGRAMA 1.4: PROVA DESPORTIVA 
Função do programa 


O último programa deste capítulo de experiências com o tempo é bastante invul- 
gar, já que pretende transformar o 464 num cronómetro. É claro que a precisão de 
um microcomputador não deve ser comparada com a dos relógios especializados, 
mas aquele tem algumas vantagens, tais como poder manter um registo dos tempos 
produzidos, efectuar cálculos sobre eles e assim por diante. O corrente programa foi 
concebido para cronometrar uma ou várias provas, visualizar os diversos tempos, 
com ou sem mensagem adjunta, e, para cada prova, fazer o cálculo do período de- 
corrido desde a prova anterior. Pode também, se lhe for pedido, imprimir a lista de 
tempos, para poder conservar-se uma hard copy (cópia permanente). 


11:15:04 (00: DO: D4) 
11:15:05 (00: 00: B01) 
11:15:08 (00: DO: 05) 
11:15:15 (00:00:07) BUS 
11:15:24 (00: BO: 09) 
11:15:25 (00:00:01) 
11:15:27 (00: 00: B2) 
11:15:27 (00: DO: DO) 
11:15:]J5 (00:00:08) LORRY 
11:15:37 (00:00: 02) 
11:15:]8 (00:00:01) 
11:15:40 (00: DO: 02) 
11:15:48 (00: 00:08) VAN 
11:15:50 (90: DO: 02) 
11:15:51 (00:00:01) 
11:15:54 (00: BO: 05) 
11:15:57 (00: DO: D5) 
11:16:01 (00: 09: 05) TANK 


Fig. 1.4 — Impressão da saída do programa «Prova Desportiva» 
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Novos tópicos apresentados no decurso deste capítulo: 


1) Cálculo de períodos de tempo. 
2) Saída de informações para uma impressora. 


Módulo 1.4.1: Inicialização 


É um módulo de inicialização padrão, que define uma pequena janela ausente 
ao fundo do écran, uma janela de uma linha (41) no topo do écran e uma segunda 
(&2) a cobrir a área principal do écran. 


Módulo 1.4.1: linhas 2000-2160 

ZODO REM JESSE IE TETE TETE IE TETE IDE DESTE DEE DE DEI IEIE DEISE IEEE 
2010 REM Initialise 

POZD REM III JIE IEEE SETE IE TETE IE IE TETE IE TETE TESE IE IE IE IEEE 
28%0 MODE 1 

2040 INK 0,1 

2050 INK 1,24 

2260 INE 2,2 

2070 INE 3,2 

20890 BRORDER 1 

2292 WINDOW 1,40,25,25 

=1920 FAFER DBD:PEN 1:CLS 

2110 WINDOW H1,6,35,1,1 

120 PAFER H1,0:PEN HK1,2:CLS &1 

21Z0 PRINT Hi,"Time now: ” 

2140 WINDOW 42,1,40,3,23 

2150 FAFER H2,Z:PEN H2,2:CLS H2:PRINT &2 
:1490 RETURN 


Módulo 1.4.2: Marcação do tempo 


É o módulo padrão de marcação de tempo encontrado nos dois últimos progra- 
mas. 


Módulo 1.4.2: linhas 3000-3090 

SDDO REM 363636 36-36 E IE IE E IE IE IEEE IE IE IE IE DEDE IEEE IEEE III 
3210 REM Set Time 

SDB2D REM 34636 SE SEI IE IE IE IE IE IEEE IE TESE IE ESEC IE IE IE IE IE IEEE 
3830 CLS:PRINT"Clock Setting:":PRINT 
39040 INPUT "Hour (1-12):";hour 

3050 IF hour<i OR hour>12 THEN PRINT "xx 
* Out of range: please try again ***":6G0 
TO 3040 
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3260 INPUT “Minute (89-59) :";minute 

3070 IF minutec9B OR minute>59 THEN PRINT 
“xxx Out of range: please try again *x+* 
":GOTO 3960 

32989 second=Q0 

3898 RETURN 


Módulo 1.4.3: Espera por entrada de dados 


INKEY$ é utilizado, uma vez mais, para evitar os problemas relacionados com 
EVERY, sempre que INPUT é utilizado. Para além de criar o estado de espera, o 
módulo também é capaz de aceitar uma instrução para enviar futuros dados para 
uma impressora. 


Módulo 1.4.3: linhas 4000-4180 


4200 
4010 
1920 
4030 
419240 
42350 
42060 
40970 
4280 
4298 
4190 
4110 
4120 
41Z0 
ge& 

4140 
41508 
41640 
4170 
41890 


REM EE 3 3€ 45 3E3E IE DEDE DE DE DEDE DE DEDE DE DE E DE IE IE IE E E E E SEE 
REM Wait 

REM 63 JE SE SEDE IEIE IE SE IE DE IE DEE IEEE IE SE SEE IEEE SE E E E 
tt="": messages="" 

WHILE t$="" 

WHILE t$="" 

t$S=INKEYS$ 

WEND 

WHILE LOWER$(t$)="p” 
printer=i-printer 

té="" 

WEND 

WHILE t$=CHR$ (13) 

INPUT "Message (<=18 chars):",messa 


IF LEN(message$)<=18 THEN t$="*" 
WEND 

CLS 

WEND 

RETURN 


Comentário 


Linha 4030: esta cadeia será usada para armazenar qualquer tecla premida pelo 
utilizador. 


O AMSTRAD FUNCIONAL 53 


Linhas 4040-4170: são o ciclo principal, o qual continuará até que seja atribuído 
um valor a T$, quer pelo programa, quer pela pressão de uma tecla. 


Linhas 4050-4070: são o verdadeiro estado de espera, que continuará até que se- 
ja premida qualquer tecla. 


Linhas 4080-4110: se a tecla premida for a da letra P, então o valor da variável 
PRINTER será encravado entre O e 1. Vale a pena prestar atenção a esta simples li- 
nha, pois que ela representa a forma clássica de movimentar uma variável entre dois 
valores. Se possui uma variável X e pretende movimentá-la para trás e para a frente, 
entre os valores Vl e V2 (sendo Vl o mais baixo), o formato será: 


X=VlI+V2-X 


mas, como o nosso valor mais baixo é zero, é simplificado para: 
X=V2-X 


Linhas 4120-4150: se a tecla premida for ENTER, então o utilizador será solici- 
tado, na linha de comando ao fundo do écran, para introduzir uma pequena mensa- 
gem a acompanhar o tempo da prova, voltando depois a linha de comando a ficar 
em branco. 


Ensaio 


Assegure-se de que o programa foi inicializado, escrevendo depois: 
GOTO 4000[ENTER] 


e o 464 deverá passar ao estado de espera. Se premir a tecla P, nada de visível deverá 
acontecer. Se premir [ENTER], dever-lhe-á ser solicitada uma mensagem, terminan- 
do a espera. Qualquer outra tecla apenas porá fim ao módulo. 


Módulo 1.4.4: Ajuste do tempo 


Este módulo é semelhante aos dos dois programas anteriores, com a excepção 
de que, para além de actualizar constantemente o tempo principal, actualiza também 
uma segunda forma do tempo que representa o período desde a última vez que uma 
tecla foi premida. Esta segunda forma do tempo é armazenada sob a aparência de 
variáveis começadas pela letra P. 


Módulo 1.4.4: linhas 6000-6280 


BDO REM II IE IEEE DEDE IE IE IE IE IE IE IE IE IE IE IEEE III IEEE 
6910 REM Adjust Time 
6020 REM SI IEIEIEIEIEIEDEIE DEDE IE IE IE TETE IE IEEE IE IEEE DEI E 
6878 second=second+i 
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5040 WHILE second>59 

6250 second=B: minute=minute+i 
6060 WHILE minute>59 

60708 minute=Q0:hour=hour+i 

40890 WHILE hour >12 

6090 hour=i 

41090 WEND 

4110 WEND 

6120 WEND 

61394 psecond=psecond+i 

4140 WHILE psecond>59 

6150 psecond=0: pminute=pminute+i 
6160 WHILE pminute>59 

6178 pminute=0: phour=phour+i 
41890 WHILE phour >12 

6190 phour=i 

4200 WEND 

6218 WEND 

220 WEND 

6230 LOCATERI, 11,1 

&240 h=hour: m=minute: s=second: GOSUB 70079 
6250 PRINTHi,tim$; 

4260 h=phour:m=pminute:s=psecond: GOSUB 7 
200 

b270 PRINTHL," (C"atimés'D” 

6280 RETURN 


Ensaio 


O módulo não pode ser efectivamente ensaiado até que o próximo seja introdu- 
zido, o que permitirá a impressão do tempo. 


Módulo 1.4.5: Visualização dos resultados 


Este módulo, tal como nos programas anteriores, constrói uma cadeia a partir 
do tempo corrente. 


Módulo 1.4.5: linhas 7000-7050 


7000 REM JIJ IEEIE IEEE IE TETE TETE IE IE IE IDE DEDE IE IE IE ICI IE IEEE E 
7010 REM Create Time String 

Z02O REM SEJE IE IEIEIE SEDE IE IE DEDE IE IE IE IE IE IE IE IE IEEE IEEE 
7030 tim$=5TR$(1000000+h+* 10000+m+100+5) 
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7040 tim$=MID$(tim$,3,2)+":"+MIDS(tim$,5 
D+": “AMIDS (tim$,7,2) 
7050 RETURN 


Ensaio 


Escreva: 
CLEAR:CLS:GOTO 6000 [ENTER] 
e deverá ver: 


00:00:01 (00:00:01) 


impresso no topo do écran. Se introduzir GOTO 6000 repetidamente, verificará que 
o tempo aumenta um segundo de cada vez. 


Módulo 1.4.6: Impressão dos resultados 


Após ter introduzido os resultados que colocam o programa em espera e lhe per- 
mitem actualizar o tempo, precisamos agora conseguir imprimir o tempo calculado 
quando uma tecla for premida. 


Módulo 1.4.6: linhas 5000-5100 

SODA REMATE IE IE IEIEIEIEIE IE DE TETE IE DE IEEE IEL IE IE TE IEIE IE IE IE 

“5010 REM Print Values 

EDLD REM IEEE IE IE IE TETE IEIEIE TETE IEEE TETE DEDE DESCI IEEE 

90:80 h=hour:m=minute:s=second: GOSUE 7000 
040 pé=" "+timg 

39950 h=phour :m=pminute:s=psecond: GOSUE 7 
[a pafra] 

060 pé=pt+" ("+timg+") "+messaget 

39270 PRINTEZ, pt 

080 IF printer=1i THEN PRINT&S,ps 

3090 phour=8: pminute=0: psecond=Q 

2100 RETURN 


Comentário 


Linhas 5030-5070: é construída uma cadeia consistindo no tempo corrente 
(HOUR,MINUTE,SECOND), seguida do tempo-período (PHOUR, PMINUTE, 
PSECOND) e qualquer mensagem que o utilizador tenha introduzido. Esta é impres- 
sa na janela principal do écran (%). 


Linha 5080: o 464, contrariamente a muitos outros micros, mantém aberto um 
canal permanente de comunicação com qualquer impressora que lhe esteja ligada. 
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Na maioria dos outros micros seria necessário «abrir um ficheiro para a 
impressora», requerendo várias linhas em BASIC. No 464, tudo o que q preciso é en- 
viar o que quer que queiramos ver impresso para o número de «cadeia» (string) 8, 
que está sempre ligado directamente à saída da impressora. 


Linha 5090: os valores do tempo-período passam a 0, visto que apenas se pre- 
tende que eles representem o tempo desde a última tecla premida. 


Módulo 1.4.7: O módulo de controlo 


O toque final é o módulo de controlo, que liga o programa como um todo fun- 
cional. 


Módulo 1.4.7: linhas 1000-1110 


1904 REM 6333 IEIEIEIEIEIE IE IEEE IE DEDE IE IE DEDE DEE IE IE IE IE IE IEEE 
1910 REM Control 

1929 REM 33333 3€3€3€3ESE SETE DEDE IE IE IEJE IE IE DEE IEEE IE IE EEE 
1038 ON BREGK GOSUE 1118 

1940 GOSUB 3204 

10594 EVERY 50 GOSUB 600900 

1260 GOSUB 2099 

1970 WHILE 1 

1989 GOSUB 4009 

1999 GOSUB 5000 

119290 WEND 

1110 CLEAR: MODE 1:END 


Comentário 


Linha 1070: um pequeno retoque em que pode encontrar utilidade — o «1» de- 
pois de WHILE permite que este ciclo continue indefinidamente. Qualquer valor po- 
sitivo realizaria a mesma função. 


Conclusão 


Há várias lições a retirar dos programas que compõem este capítulo, a menor 
das quais não será que as utilizações do seu 464 apenas estão limitadas pela imagina- 
ção do utilizador. Mas, talvez a lição mais importante a retirar, fazendo uma retros- 
pectiva dos programas, seja a forma como se torna fácil a concepção de programas, 
quando tudo está contido em módulos claros que podem ser transferidos de um pro- 
grama para o seguinte. Com o seu comando MERGE de fácil utilização, o 464 
implora que o usem desta maneira. Uma vez construída uma biblioteca suficiente de 
rotinas úteis, descobrirá que grande parte da sua programação se identifica com a 
junção das peças de um quebra-cabeças, excepto que, pelo menos em certos casos, o 
quebra-cabeças completo terá mais utilidade. 
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CAPÍTULO 2 


Pintura por números 


Neste capítulo, passamos dos jogos com o tempo para algo que o 464 faz parti- 
cularmente bem: a visualização de informação sob formas que são mais imediata- 
mente compreensíveis do que listas de factos e números. O capítulo é formado por 
três programas, que criarão gráficos de um ou outro tipo, tanto em baixa como em 
alta resolução. 

À medida que se avança neste capítulo, e nos que se seguem, verifica-se que as 
explicações se tornam mais breves, excepto nas situações em que se apresentam no- 
vas ideias ou módulos complexos. Isto é deliberado e é uma tentativa de estabelecer 
um equilíbrio entre a informação necessária para compreender os programas que se 
estiver a introduzir e os próprios programas, que são a razão que o levou a comprar 
o livro. Se realmente ficar encalhado em qualquer sítio, descobrirá, em geral, que 
pode voltar a um programa anterior onde uma técnica semelhante tenha sido utiliza- 
da, relendo o comentário a ela referente antes de continuar. É por esta razão que lhe 
foi recomendado, na «Introdução», que avançasse ao longo do livro, em vez de sal- 
tar até alguns dos programas mais ambiciosos em partes posteriores do livro. 

Os programas incluídos neste capítulo são: 


GRÁFICO: cria um poderoso e muito eficiente gráfico linear em alta resolução. 


GRÁFICO DE SECÇÕES: pega num conjunto de dados limitado e apresenta-o 
sob a forma de um círculo dividido em segmentos multicolores. 


GRÁFICO 3D: permite-lhe criar um espantoso gráfico de barras tridimensional. 


PROGRAMA 2.1: GRÁFICO 
Função do programa 


Um dos problemas programáticos de tratamento de dados que mais tempo e me- 
mória consome é a forma como esses dados devem ser introduzidos. Isso, frequente- 
mente, requer secções programáticas bastante longas e complexas, devotadas à intro- 
dução, alteração e remoção de dados. 

Nos dois primeiros programas deste capítulo, examinamos uma forma de con- 
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tornar aquela limitação, através da criação de um programa fácil de utilizar, mas que 
não precisa de dedicar memória à colocação de solicitações no écran, ao armazena- 
mento de dados em quadros ou à colocação de dados para armazenamento em fita. 
Os programas interactivos, ou seja, programas que pedem informações ao utilizador 
durante a execução, são certamente agradáveis de utilizar, mas podem ser um luxo 
sempre que a memória é apertada. Neste programa, que desenha um gráfico em alta 
resolução, fazemos uso de instruções DATA para criar um programa que é a própria 
simplicidade na utilização e também muito mais simples de escrever do que um pro- 
grama interactivo, o qual alcançaria o mesmo resultado. 


TEST 


DO mira 


HORIZONTAL 


Fig. 2.1 — Visualização do écran no «Gráfico» 


Técnicas apresentadas no decurso do programa incluem: 


1) Uso flexível de instruções DATA. 


Módulos 2.1.1 e 2.1.2: Os dados para o gráfico 


Estes dois módulos são a chave da simplicidade do programa. Nestas poucas li- 
nhas está contida toda a informação que será necessária para desenhar um gráfico 
satisfatório, todo ele claramente etiquetado para que o utilizador não possa ter qual- 
quer espécie de dificuldade em organizar a visualização. Não fique preocupado 
se, nesta altura, encontrar dificuldades em descobrir a relevância de todos os números 
— a sua utilização tornar-se-á clara logo que tenha introduzido e executado o pro- 
grama uma ou duas vezes e experimentado fazer algumas alterações. 
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Módulos 2.1.1 e 2.1.2: linhas 3000-4050 


“DDO REM EREEREELEESLEESEREREEERA ERR 
3S810 REM Data i 

020 REM EMITE IEIEIEICIEIEIEICIEICIE ICI 
0358 DATA GRAPH TITLE, TEST 

040 DATA H/AXIS NAME, HORIZONTAL 

050 DATA V/AXIS NAME, VERTICAL 

“060 DATA UNITS ON H/AXIS,20 

3070 DATA UNITS ON V/AXIS,28 

“080 DATA AMOUNT PER V/UNIT,ID 

ABDA REM RIMIEICIIEIEILIEIEIEIEIEIE IE IEL IE IEIEIEICILIEIEIE IE 
4010 REM Data 2 

ABLD REM EREREEEELESREEREREEEERENKEEM RH 
40350 DATA 3,10,20,40,70,110,140,160,170, 
175 

4040 DATA 175,170,160,140,110,70,40,20,1 
2,5 


4050 DATA END 


Comentário 


Linhas 3030-3050: nome que o utilizador deseja dar ao gráfico, no seu conjun- 
to, e as etiquetas dos eixos vertical e horizontal. Note que, em cada caso, a frase an- 
tes da vírgula na instrução de dados está lá apenas para conveniência do utilizador e 
será ignorada pelo programa — a vírgula é essencial para separar a primeira frase da 
informação importante que se lhe segue. 


Linhas 3060-3070: os dois eixos do gráfico serão divididos em unidades para fa- 
cilidade de leitura. Os eixos terão sempre o mesmo comprimento, mas o utilizador 
pode especificar em quantas unidades eles irão dividir-se. 


Linha 3080: se o gráfico se destinasse, por exemplo, a registar o número de to- 
neladas de trigo produzidas por um país ao longo de vários anos, o utilizador pode- 
ria desejar que cada unidade do eixo vertical registasse uma unidade 1000 toneladas. 
Em vez de obrigar o utilizador a dividir o número real em unidades de 1000, antes de 
o introduzir, o número desta linha permite que as unidades sejam especificadas, de 
modo que cada número possa ser introduzido por inteiro. 


Linhas 4030-4040: constituem os dados em que o gráfico irá basear-se. No caso 
da presente organização do programa, estes números produzirão uma curva suave, 
em forma de sino. Note que apenas há contemplação para um número por cada uni- 
dade do eixo horizontal, começando na posição um, embora nem todo o eixo hori- 
zontal tenha de ser usado. Podem ser incluídos em cada linha separada tantos itens 
de dados quantos os desejados. 


60 DAVID LAWRENCE E SIMON LANE 


Linha 4050: pode utilizar tantas instruções de dados quantas a memória permi- 
tir, mas a informação terá de terminar com uma instrução de dados que contenha a 
palavra END (fim). É este o sinal que indica ao programa que atingiu o final dos da- 
dos a serem utilizados para o gráfico — ainda que se sigam mais instruções de dados. 


Módulo 2.1.3: Desenho da grelha para o gráfico 


Este módulo desenha a armação sobre a qual irá assentar o eventual gráfico, 
juntamente com as unidades dos eixos e as várias etiquetas especificadas. 


Módulo 2.1.3: linhas 1000-1190 

1200 REM SEI IEIEIEIEIEIEIEIE IEEE SESC IE IEIE IE IE IEEE EDER EE 
1210 REM Draw Grid 

1920 REM SEE IES IE IEJESEIEIESEIEIE IE IEIEIE IE IE IE IEEE IEEE EE 
1930 MODE 1 

1940 MOVE Z2,368 

1950 DRAW 3S2,Z2,2 

19260 DRAW 639,32 

19270 RESTORE =Z000 

1980 READ tE,t$:LOCATE 20-LEN(t$)/2,1:PR 
INT t3 

1990 READ t&,t$:LOCATE 21-LEN(t$E)/2,25:P 
RINT t& 

1190 READ t$&,t$:FOR i=1i TO LEN(t$):LOCAT 
E 1,12-LEN(t&)/2+ : PRINT MID$E(t$E,i,1):NE 
XT à 

1110 READ tE,nv:1v=338/nv 

1120 FOR i=92 TO nv 

1130 MOVE 24+8%(i /5=INT(i/5)),5352+i*x1]v: DR 
AW 32, 32+ixlv 

1140 NEXT i 

1150 READ t$,nh: 1h=6906/nh 

1160 FOR i=8 TO nh 

1170 MOVE 32+ix1h,24+8*(i/5=INT(i/5)):DR 
AW S2+ixlh,32 

11998 NEXT à 

11990 READ t&,unit 


Comentário 


Linhas 1040-1060: são desenhados os dois eixos, partindo uma linha das proxi- 
midades do canto superior esquerdo do écran até perto do canto inferior esquerdo, 
de onde continua em ângulo recto ao longo do fundo do écran até perto do canto in- 
ferior direito. 
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Linha 1070: o «apontador de dados» do 464 é regulado para apontar para o pri- 
meiro item de dados a seguir ao início do módulo, em 3000. Este RESTORE evitará 
que seja gerado um erro «DATA exhausted» (dados esgotados), se o programa for 
iniciado com GOTO. A utilização de RUN, seja como for, regula o apontador para 
o primeiro item de dados. 


Linhas 1080-1100: as etiquetas para o gráfico, no seu todo, o eixo horizontal e o 
eixo vertical são lidos a partir das instruções de dados e impressos no écran. No caso 
da etiqueta para o eixo vertical, é utilizado um ciclo para imprimir a etiqueta, carác- 
ter por carácter, ao longo da margem esquerda do écran, no sentido descendente. 
Note que, em cada caso, existem duas instruções READ. A primeira recolhe a frase 
antes da vírgula, na instrução de dados. Aquela é, então, imediatamente descartada 
pela leitura (READ) de outra cadeia na mesma variável, T$. 


Linha 1110: o número de divisões a colocar no eixo vertical (NV) é lido a partir 
da instrução de dados seguinte. A extensão do eixo vertical (338 pixels) é, então, di- 
vidida por este número, para se chegar ao comprimento de cada divisão em pixels 
(LV). 


Linhas 1120-1140: este ciclo desenha pequenas marcas no eixo vertical, para 
registar as divisões especificadas pelo utilizador. Uma coisa a ter aqui em especial 
atenção é a expressão 8*(1/5 = INT(I/5)), a qual tem como efeito tornar a marca pa- 
ra cada quinta unidade maior do que as outras. Para se compreender a expressão, é 
preciso saber alguma coisa acerca da forma como as «condições lógicas» são trata- 
das pelo 464. 

Quando o intérprete de BASIC do 464, o maciço programa em código-máquina 
que executa o BASIC para si, encontra uma condição a seguir a um IF, algo como 
«A > B», «A = B» ou «A < = B», precisa de determinar se essa condição é verdadei- 
ra ou falsa, antes de decidir se deve continuar com a acção especificada pela instru- 
ção IF. Assim: 


IF A> B THEN GOSUB 1000 


será activado se «A > B» for verdadeiro (exemplo: A= 10 e B=9) e ignorado se for 
falso (exemplo: A=9 e B= 10). Para que seja tomada uma decisão, a condição é 
avaliada de acordo com os valores correntes de A e B (ou se tiverem sido especifica- 
das variáveis) e é dado à condição um valor que é — 1, se a condição for verdadeira, 
e 0, se a condição for falsa. É o valor que interessa, e não tanto a condição, facto 
que você pode demonstrar a si mesmo realizando o curto ensaio que se segue. Intro- 
duza, em modo directo: 


A = 5S[ENTER] 
IF A THEN PRINT "TRUE"[ENTER] 


O resultado será que «TRUE» é impresso no écran, visto que o valor a seguir à 
instrução IF não é O (qualquer valor que não seja zero, positivo ou negativo, produ- 


zirá o mesmo efeito). Experimente agora: 
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A=0O[ENTER] 
IF A THEN PRINT "TRUE"[ENTER] 


Desta vez, nada será impresso no écran. De momento, no entanto, não estamos 
tanto interessados no modo como IF funciona, mas na forma como as condições são 
avaliadas. Por isso, experimente o seguinte: 


A= I[ENTER] 
B= [ENTER] 
PRINT A=B[ENTER] 


O que deverá ver é «— 1», o valor de uma condição verdadeira. Experimente 
agora: 


A= I[ENTER] 
B=2[ENTER] 
PRINT A=BIENTER] 


O resultado será agora «0», já que a condição não é verdadeira. A princípio, is- 
to pode parecer interessante, mas moderadamente irrelevante. De facto, esta capaci- 
dade de extrair um valor de uma condição lógica é bastante valiosa em programação, 
tal como a linha 1130 ilustra. 

O que a linha 1130 faz é desenhar uma série de linhas em ângulo recto com o ei- 
xo vertical, para marcar as divisões especificadas pelo utilizador. O comprimento 
destas linhas é, normalmente, de oito pixels. No entanto, sempre que o valor da va- 
riável I do ciclo for exactamente divisível por cinco (isto é, em cada quinta marca), a 
condição (1/5 = INT(I/5)) será verdadeira e assumirá o valor — 1, em vez de O. Por 
outras palavras, a inclusão de « — 8*(1/5 = INT(I/5))» na linha que especifica o com- 
primento da marca a ser desenhada (DRAW) permite a duplicação do comprimento 
de cada quinta marca, sem a utilização de uma complexa instrução IF... THEN... 
ELSE. 

Note que, para adicionar oito ao comprimento da marca, é preciso retirar oito 
vezes o valor da condição, posto que o seu valor, quando verdadeiro, é um negativo — 
a retirada de um número negativo é equivalente à adição de um número positivo. 


Linhas 1150-1180: é executado exactamente o mesmo processo para o eixo hori- 
zontal. 


Linha 1190: o número de unidades representadas por cada divisão, no eixo ver- 
tical, é lido a partir da instrução de dados. 


Ensaio 


Tudo o que é preciso para ensaiar esta parte do programa é executá-lo até ao 
ponto a que chegámos. Deverá ver a grelha do gráfico desenhada no écran, com 
«TEST» em cima, «VERTICAL» ao longo da margem esquerda e «HORIZON- 
TAL» ao longo da margem inferior. Ambos os eixos devem apresentar-se claramente 
divididos em vinte unidades. 
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Módulo 2.1.4: Desenho do gráfico 


N Dispondo já da estrutura, tudo o que resta fazer é desenhar o próprio gráfico, 
utilizando a informação especificada no módulo DATA?2. 


Módulo 2.1.4: linhas 2000-2160 

2DDD REM JSEIEIEIEIEIEIEIEIEIE IE III EEE RE 
2210 REM Draw Graph 

2B2D REM AESEIEIEIEIEIEDEIEIEIE IEEE IICT EE 
2934 ON ERROR GOTO 2140 

2240 RESTORE 4000 

2050 READ t 

z060 FLOT E2,3]2+t/unitxlv,i 

20780 column=i 

“080 READ tF 

2090 IF t&="END" THEN GOTO Z1iz0 

2100 DRAW 32+1lh*column, 32+VAL (t&) Zunitxl 
v 

2112 column=column+i 

2120 GOTO 2080 

2130 IF INKEy$="" THEN GOTO 2130 

21470 CLS 

2150 LIST 3000- 

2160 END 


Comentário 


Linhas 2030 e 2130-2160: se for gerado um erro durante a sequência de desenho 
principal, ou uma tecla premida uma vez desenhado o gráfico, o écran limpará e lis- 
tará os dados em que se baseia o gráfico. Isto torna extremamente fácil o exame do 
gráfico e a alteração de pormenores a ele referentes. 


Linha 2050: é recolhido o primeiro item de dados. 


Linha 2060: o gráfico é iniciado no eixo vertical, num ponto representando a di- 
mensão do primeiro item de dados, tal como se encontra expresso nas unidades espe- 
cificadas pelo utilizador. 


Linha 2070: COLUMN (coluna) será utilizado para registar a quantidade de 
itens de dados lidos e, portanto, até onde o gráfico se deslocou ao longo do eixo ho- 
rizontal. 
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Linhas 2080-2090: itens de dados subsequentes são lidos como cadeias. Isto 
permite-nos verificar se o item lido é realmente a palavra «END» e terminar o pro- 
grama, se assim for. 


Linhas 2100-2120: como o cursor dos gráficos já se encontra no final da parte 
do gráfico já desenhada, tudo o que é preciso fazer é desenhar (DRAW) até ao ponto 
apropriado seguinte, aumentando COLUMN por cada item de dados lido. As coor- 
denadas «X», ou horizontais, são calculadas pela multiplicação de COLUMN (ou o 
número de unidades que o gráfico avançou ao longo do eixo horizontal) pelo com- 
primento em pixels das unidades horizontais (LH) — a constante 32 é a distância pa- 
ra o interior a que o início do eixo horizontal está do limite esquerdo do écran. As 
coordenadas «Y», ou verticais, são divididas primeiro por UNIT. 

Assim, se o item de dados fosse 1,000,000 e o utilizador tivesse especificado que 
o eixo vertical devia ser dividido em unidades de 100,000 (UNIT = 100,000), então o 
resultado seria 1,000,000/100,000 ou 10 unidades. Tendo chegado ao número de uni- 
dades, este é então multiplicado pelo comprimento das unidades verticais (LV) em 
pixels. 


Ensaio 


Execute o programa terminado e deverá ver desenhar-se uma curva suave, em 
forma de sino. Quando o desenho terminar, prima uma tecla qualquer e deverá ver 
os módulos DATA listados no écran, para que você possa alterá-los à vontade. Se es- 
te ensaio for satisfatório, o programa deverá estar pronto a usar. 


PROGRAMA 2.2: GRÁFICO DE SECÇÕES 
Função do programa 


Uma forma muito útil de apresentar pequenas quantidades de dados é a técnica 
do «gráfico de secções», em que um círculo representando um valor total é dividido 
em segmentos que representam as diferentes partes que compõem o todo. No progra- 
ma que se segue, iremos desenhar com base no que já aprendemos acerca da mate- 
mática dos círculos e do uso flexível das instruções de dados, no último programa. 
Se não estiver esclarecido em qualquer dos aspectos, por favor volte atrás e reveja es- 
ses assuntos, pois não iremos demorar-nos a explicar novamente os trâmites das téc- 
nicas. 

Não é necessário apagar as linhas introduzidas durante os procedimentos de en- 
saio, já que essas linhas terão de ser introduzidas como parte do último módulo, o 
módulo de controlo. 
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Fig. 2.2 — Visualização do « Gráfico de Secções» 


Módulo 2.2.1: Os dados para o gráfico 


Tal como no gráfico de alta resolução anterior, os valores em que se baseará o 
presente gráfico estão contidos em instruções de dados que se auto-explicam. No en- 
tanto, note que, no programa tal como está listado, os dois quadros que serão utili- 
zados para conter o nome de cada item e o seu valor não são dimensionados, pelo 
que você está limitado a dez itens. Honestamente, um gráfico de secções com mais de 
dez itens tem pouco valor, porque se torna demasiado cheio para aceitar realmente a 
informação. Ainda assim, pode incluir, se desejar, uma instrução dimensionadora 
no início do programa, para aumentar o número de itens a tratar. 


Módulo 2.2.1: linhas 4000-4080 


ADDO REM ESESMEIEIEIEIEIEIEIEIEIEITEIE TETE IE IE DEDE TETE IE IEEE IE IEEE 
40174 REM data for chart 

4D2D REMISESIEIEIEIEIEIEIEIEIEDEIEIEIEIE IE TETE IE IEIEICIEIE IEEE 
40:40 DATA TITLE, TEST 

4040 DATA NUMBER OF ITEMS,? 

4050 DATA NAMES, ONE, TWO, THREE, FOUR,FIVE, 
51X, SEVEN, EIGHT,NINE,TEN 

4240 DATA 
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4070 DATA QUANTITIES,1,2,.53,4,5,6,7,8,94l 
a 
4280 DATA 


Módulo 2.2.2: Processamento dos dados para o gráfico 


A informação contida no módulo DATA é lida nas variáveis NAMES e ITEMS, 
e nos quadros NAMES e A. 


Módulo 2.2.2: linhas 5000-5110 


5SODO REVELE 
352104 REM Process Data 

5020 REM SE IEIEIEIEIEIEIE IDE IEEE IE IDE IE IEEE IE IE IEEE IE EEE 
030 RESTORE 4000 

040 READ t,namef 

39050 READ tf,items 

9060 READ t$:FOR 1i=0 TO items-i: REAL nam 
e$(1):NEXT à 

5070 RESTORE 4070 

3520890 sum=9:REâD t$:FOR i=Q TO items-l:RE 
AD t:sum=sum+t: NEXT à 

3090 RESTORE 4070 

3510900 READ t&:FOR i=2 TO items-2:RE2D t:a 
ti+li)=(t/sum)*+I6B+ra (i):NEXT à 

3110 RETURN 


Comentário 


Linhas 5080-5100: o valor dos itens a serem incluídos no gráfico são primeiro 
adicionados entre si, para descobrir o total que o círculo representará. O apontador 
DATA será então restaurado (RESTORE) no início dos valores de quantidade e cada 
quantidade será traduzida num segundo valor, que, quando dividido, deverá dar o 
mesmo resultado que a quantidade original dividida pelo total. Por exemplo, se o to- 
tal fosse 100 e a quantidade para um item 25, isto seria traduzido em 90, ou 25% de 
360. Estes novos valores serão utilizados mais tarde, para determinar qual a fatia do 
gráfico a atribuir a cada item. 


Ensaio 


Introduza as linhas seguintes a partir do que será, eventualmente, o módulo de 
controlo, e depois execute o programa: 


1040 GOSUB 5000 
1100 END 
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Se tudo estiver bem, então nada de visível deve acontecer — só se houver um er- 
ro de qualquer espécie é que verá alguma coisa. Se desejar, no entanto, pode impri- 
mir o conteúdo das variáveis e quadros designados no módulo, para poder ficar tran- 
quilo. 


Módulo 2.2.3: Organização do écran 


Este módulo elabora o modo gráfico e cores associadas, para além de desenhar 
um círculo de 80*80 no centro do écran, juntamente com o nome do gráfico. 


Módulo 2.2.3: linhas 2000-2090 

2DDO REM SITE IEIEIE IE IE IEEE IE IE IEEE IEIEIEIEICIE ICI 
:2190 REM draw framework 

220 REM III IEIEIE DE IE TETE IE IE IEDEIE DEDE SEI ICI IEEE ICI II IE 
2230 MODE 1:0ORIGIN 320,184: EODRDER QD 

:D40 INK 0,0: INK 1,2:INKE 2,6: INK 3,18 
=050 LOCATE 20-LEN (namef) 7/2 ,1:PEN Z:PRIN 
T nameé 

2060 DEG 

2078 FPLOT 0,1984,3 

2482 FOR a=B TO S60 STEF 15:DRAW 184xSIN 
(a), 184xC0S (a): NEXT a 

20992 RETURN 


Comentário 

Linha 2080: se ler a explicação sobre a matemática do desenho de um círculo, 
no comentário do primeiro capítulo do livro (cap. 1), perceberá que esta linha apenas 
desenha um círculo. Em vez de traçar cada ponto da circunferência individualmente, 
o que acontece com esta linha é que são calculados vários pontos afastados entre si 
15 graus, sendo depois desenhadas linhas entre eles. 


Ensaio 


Acrescente as linhas seguintes e depois execute o programa: 


1060 GOSUB 2000 
1080 IF INKEY$ = "” THEN GOTO 1080 


O resultado deverá ser nada mais espectacular do que o título do gráfico e um 
círculo amarelo. Prima qualquer tecla, excepto ESC, para voltar ao écran normal. 
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Móduio 2.2.4: Introdução dos pormenores 


Este módulo desenha os segmentos em que o gráfico irá dividir-se, pinta-os e 
junta-lhes as etiquetas especificadas no módulo DATA. Para perceber o que se pas- 
sa, precisará de lembrar-se da matemática simples de um círculo, tal como foi expli- 
cado no programa «Anarelógio». Se se esqueceu, deve voltar a esse programa e ler 
de novo o comentário. 


Módulo 2.2.4: linhas 3000-3170 


IDDD REM II IE IEEE IE IE IE IE IE IE IE TETE IE IE IE IDE DEDE IE DEISE IEEE A 

3810 REM Insert Segments 

ID2D REM 336 IEEE IE IE TETE IE IE IE IE IE IEEE IE IE IE IE IE IEEE E IEEE 

S0Z0 FOR i=0 TO items-i 

J240 MOVE 0,0:DRAW 184*SIN(ati)),1844Cos 
(a(i)) 

J050 NEXT à 

3955 FEN 1 

3260 FOR i=0 TO items-l 

3070 ta=((ali)+a(i+i+itemsá(i+i=items))) 
1/2 

s080 IF a(li+i+items*(i+l=items))iatli) TH 
EN ta=ta+189 

“D9B MOVE 180xSIN(ta),188x4COS(ta):c=i MO 
D 3+1: IF i=items-i AND c=1i THEN c=2 

J120 GOSUR 40290 

3110 tx=184*SIN(ta) 

J120 ty=1844COS(ta) 

3130 dx=320+xSGN (tx) 

140 MOVE tx,ty:DRAW dx,ty,3 

3150 LOCATE 1+(LEN(names(i))-49)*(dx=320 
)$914-INT((Cty+9)/16): PRINT namesti); 

3160 NEXT à 

3178 RETURN 


Comentário 


Linhas 3030-3050: é desenhada uma série de linhas do centro do círculo para a 
circunferência, dividindo o círculo nos segmentos que constituem o gráfico. Os valo- 
res utilizados são os calculados no módulo 2.2.2. 


Linhas 3070-3100: são calculados mais ângulos, mas, desta vez, a sua posição é 
intermédia dentro de cada um dos segmentos acabados de desenhar. A expressão ló- 
gica nas linhas 3070 e 3080 (ITEMS* (1 + 1 = ITEMS) assegura que, quando o último 
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segmento tiver sido alcançado, o ponto de partida do primeiro segmento seja utiliza- 
do como o segundo ângulo para o cálculo da posição intermédia. Ao efectuar-se este 
último cálculo, a resposta aparecerá errada: em vez de ser adicionada um ângulo a 
um ângulo maior e dividido por 2 para encontrar o ponto intermédio, o ângulo do 
último segmento será adicionado a O (o início do primeiro segmento), produzindo as- 
sim um ângulo intermédio do início do primeiro e último segmentos. Isto é rectifica- 
do adicionando 180 graus à última resposta. 

A linha 3090 calcula, então, uma posição baseada neste ângulo, que se situa jun- 
to ao interior da circunferência do círculo. É então feita uma chamada ao módulo 
seguinte, que é bastante semelhante ao módulo de «preenchimento» utilizado no 
«Anarelógio», para colorir o segmento em forma de cunha sobre o qual recai o pon- 
to corrente. A linha 3090 produz também um ciclo regular das três cores de primeiro 
plano especificadas no módulo de inicialização, com excepção do último segmento, 
que não pode ter a mesma cor do primeiro segmento. A razão disto está em que se 
assegura que o segmento final não virá a ter a mesma cor do primeiro — uma vez 
que se encontram juntos, isto tornaria difícil a leitura do gráfico. 


Linhas 3110-3120: estas duas linhas calculam um ponto na circunferência do cír- 
culo, num ângulo intermédio dos pontos inicial e final do corrente segmento. 


Linha 3130: na montagem da estrutura do gráfico, já deslocámos a origem dos 
comandos dos gráficos para o centro do écran. Esta linha calcula uma posição na 
horizontal distando 320 pixels do centro. A variável TX contém já a coordenada X 
de um ponto da circunferência que tanto pode ser negativo (para a esquerda do cen- 
tro) ou positivo (para a direira do centro). Multiplicando 320 por SGN(TX) 
assegura-se que, se o centro do segmento ficar para a esquerda do centro do écran, o 
mesmo acontecerá com DX e vice-versa. 


Linhas 3140-3150: é desenhada uma linha a partir da circunferência do círculo 
até ao limite do écran, quer para a direita, quer para a esquerda, tal como definido 
em DX. No final da linha, ou antes, por cima dela, é impressa a etiqueta do segmen- 
to para onde aponta a linha. A posição de impressão das etiquetas da margem direita 
é deslocada para a esquerda, para que não sejam despejadas para fora do écran, uti- 
lizando uma condição lógica para determinar a coordenada X. A linha parece mais 
complexa do que é, na verdade, devido à necessidade de traduzir a posição previa- 
mente calculada em pixels numa posição para caracteres. 


Ensaio 


Acrescente as linhas seguintes e execute o programa: 


1070 GOSUB 3000 
6000 RETURN 


Deverá obter uma visualização como a do início da secção deste programa, em- 
bora os segmentos individuais não estejam coloridos. 
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Módulo 2.2.5: Preenchimento dos segmentos 


Este módulo é quase idêntico ao que está contido no programa «Anarelógio». A 
única diferença é que o processo de preenchimento decorre até encontrar qualquer 
cor que não seja a cor de fundo. 


Módulo 2.2.5: linhas 6000-6300 


6000 
6010 
6920 
6830 
6040 
6050 
6860 
6070 
080 
6090 
6190 
6110 
6120 
6130 
6148 
6150 
6160 
6178 
6180 
6190 
6200 
210 
6:20 
6230 
6240 
6250 
6260 
6270 
6280 
&L9A 
6300 


Ensaio 


EEE SE SE SE SEIE IE IE IE DEDE IE IE TETE IE IE IEEE IE IEEE IE DEDE IEEE EE 
REM Fill 

REM SE SE IE DE IE IE IE IE IE IE ICE III II ERREI EEE 
IF TESTR(B,0)<>8 THEN RETURN 

s=2 

MOVE sxINT(XFOS/5) ,2*INT(YPOS/2) 


REM search up/right ERICEIRA 
IF TESTR(B,s)=B THEN GOTO 6890 
IF TESTR(s,-s)=9 THEN GOTO 6090 


REM search up/left xXx 
MOVER —s,O 

IF TESTR(B,s)=B THEN GOTO 6090 

IF TESTR(-s,—-s)=Q0 THEN GOTO 6150 


REM ink in lines across EHEHEH 
x1=XPOS 

MOVER s,Q 

FLOTR 2,90,0 

IF TESTR(s,0)=B THEN GOTO 6220 
x2=XPOS-—s 

MOVE x1,YFOS-—s 

IF TESTR(s,6)=0 THEN GOTO 6290 
IF XFOS==x2 THEN RETURN 

GOTO 52608 

IF TESTR(-s,2)<>0 THEN GOTO 52900 
GOTO é&290 


O mesmo que para o módulo anterior, excepto que os segmentos devem agora 
ficar coloridos. 
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Módulo 2.2.6: O módulo de controlo 


Muitas das linhas a ele destinadas foram já introduzidas, mas certifique-se de 
que possui todas as linhas listadas em baixo, sem o que lhe faltarão um ou dois refi- 
namentos. 


Módulo 2.2.6: linhas 1000-1120 

IGDO REMEFEEEREEEEEEREEEELERERRERE RI 
1210 REM Control 

1020 REM IES SEI IEIEIEIEIE IE IE IEEE E IEEIEIEIEIEI DEREIEREHIE 
iZZQB ON ERROR GOTO 1118 

1940 GOSUE 5000 

1200 ON BREAK GOSUE 1098 

idódy GOSUB 2000 

1070 GOSUE FODA 

iggo IF INKEv&="" THEN GOTO igaaz 

190 CLEAR:CLS:LIST 4000-4999 

11200 END 

11170 PRINT" *** FROBABLE INVALID DATA F 
ORMAT sx" 

1i20 FOR i=i TO S000:NEXT i:GOTO 19090 


Comentário 


Linhas 1030 e 1110-1120: uma breve mensagem de erro para indicar que existe, 
provavelmente, um erro no plano do módulo DATA — este não é infalível como um 
ensaio, já que certos enganos gerarão erros detectáveis por ON ERROR. 


Ensaio 


Altere alguns dos valores sob o cabeçalho «QUANTITIES» (quantidades) para 
uma letra, executando depois o programa. Deverá ver a mensagem de erro do pro- 
grama listada e também o módulo DATA. Corrija o engano deliberado e volte a exe- 
cutar o programa. Desta feita, ao premir duas vezes ESC (ou uma vez qualquer te- 
cla, logo que o gráfico esteja acabado), deverá aparecer a listagem do módulo DA- 
TA. 
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PROGRAMA 2.3: GRÁFICO 3D 


Função do programa 


Depois de termos visto duas formas diferentes de apresentação de dados em mo- 
do de alta resolução, é conveniente lembrarmo-nos da imensa flexibilidade que o 
conjunto excelente de gráficos de baixa resolução do 464 proporciona. Utilizando os 
caracteres gráficos de baixa resolução, que não são acessíveis a partir do teclado, 
mas que pode ver no «Apêndice 3» do manual, o utilizador pode aproveitar os efei- 
tos já prontos, que seria muito difícil conseguir em alta resolução. 

No programa seguinte, criaremos um gráfico de barras tridimensional, cuja vi- 
sualização é, penso eu, uma das melhores demonstrações de quão impressionante po- 
de ser a baixa resolução no 464 — de facto, trata-se do tipo de visualização que o fa- 
rá chamar toda a família para lhes mostrar como você é inteligente. 

Novos conceitos apresentados no decurso do programa são: 


1) Utilização do Datacorder (gravador de dados) para armazenar dados pa- 
ra o programa. 

2) Utilização dos caracteres gráficos de baixa resolução. 

3) Entrada de dados interactiva. 


Módulo 2.3.1: Inicialização 


Trata-se de um módulo claro, que declara um pequeno quadro e pergunta se de- 
vem ser introduzidos dados a partir da fita — adiante se falará mais sobre isto. 


Módulo 2.3.1: linhas 2000-2080 


2Z20DD REM IIEIEIEIEIEIEIEIE IE DE IEIE SEDE IE IE DE IE IE IE IEEE IE IE IEEE 
2010 REM Initialise 

2020 REM IEIEIEIEIEIEIEIEIEIEIEIEIEIEIE IE IE IEEE IE IE SEIS IE IEEE E 
2030 ULS 

2040 FRINT TAB(17):"3SD GRAPH':TABC(IZD) "= 
=======" PRINT 

2050 DIM hh(2,6) 

2064 INPUT “Load data from tape (vy/n)"saq 


2070 r&=CHR$ (IS) 
2080 RETURN 
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Fig. 2.3 — Visualização do «Gráfico 3D» 
Comentário 


Linha 2050: O quadro HH será utilizado para armazenar os dados para o gráfi- 
co. Uma vez que os valores na instituição DIM têm de ser contados a partir de zero, 
o que aqui se proporciona é espaço para três conjuntos de sete itens de dados. 


Linha 2060: esta entrada de dados (INPUT) está concebida para permitir que 
um módulo posterior chame um conjunto de dados para um gráfico, a partir da fita. 


Linha 2070: a cadeia R$ será utilizada no módulo do ficheiro de dados e as ex- 
plicações podem esperar, até que se chegue a esse módulo. 


Módulo 2.3.2: Aceitação dos dados 


No caso deste último programa do capítulo, não iremos adoptar o estratagema 
de utilizar instruções de dados para armazenar informação alterada. A maioria dos 
programas que trabalham em informação útil terão em conta a introdução de tal in- 
formação pelo utilizador, durante a execução do programa — tais programas são de- 
signados «interactivos». No caso do programa presente, toda a informação pode ser 
reunida de uma só vez. Assim, o que vemos é um módulo que pede informação, que 
a utiliza para pedir mais informações e executa verificações de erros na entrada. 
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Módulo 2.3.2: linhas 3000-3250 


TODO REM IES IEEE EIEIEIEIE IEEE REI RA 

3810 REM Accept Data 

ID2D REM SEIESEIE IE SE IE IEIEIEIEIEIE ICI IEICIEIEIE IEEE RE 

3030 CLS 

240 PRINT TAB(17):"3D dc Bisa AS ada 
=======" PRINT 

“0590 PRINT"There are 19 units EERACaRIo 
«"2PRINT 

“2690 INPUT"Number represented by each un 
lt:",uv: PRINT 

3970 INPUT'Columns (1-6):",nd: PRINT 

“880 INPUT"Banks (1-5):",nb:FRINT 

JOGO PRINT SEI DEIEIEIE DELETE IEIEIEIEIEIC III REI RR A 
III ESET = PRINT 

3190 INPUT “Name for horizontal axis:“,n 
h$: PRINT 

319 FOR i=92 TO nb-i 

351290 PRINT"Name for vertical axis “z;i+l; 
: INPUT nvf£(i): PRINT 

3130 NEXT à 

3140 CLS 

3150 FOR i=90 TO nb-i 

160 FOR 5=1 TO nd 

3170 t=290xuv 

3180 WHILE t/uv>19 

31980 PRINT:PRINT' Input Bank"“si+i;“value! 
E ER 

3200 INPUT t 

3210 IF INTCt/uv)>19 THEN FRINT:FRINTO'x+* 
*«+** Value too high xxx! 

3220 wEND 

J2]0 hh(i,))=t 

3240 NEXT 5,i 

32590 RETURN 


Comentário 


Linhas 3050-3060: tal como no anterior programa do gráfico linear, cada unida- 
de do eixo vertical pode representar qualquer valor especificado pelo utilizador. Note 
que, por estarmos a trabalhar em baixa resolução, não temos a mesma flexibilidade 
do programa anterior, no que respeita à dimensão das unidades verticais. A única di- 
mensão prática para cada unidade é a altura de um carácter quadrado e o formato 
do gráfico permitirá dezanove unidades no eixo vertical. 
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Linhas 3070-3080: tal como foi mencionado anteriormente, o gráfico permitirá 
a apresentação de três conjuntos de seis itens, que serão visualizados sob a forma de 
três linhas, até um máximo de seis barras sólidas. A cada linha de barras chamar-se-á 
um «banco» e às barras individuais «colunas». 


Linhas 3110-3130: visto que pode haver até três bancos, será preciso que haja 
até três nomes para o eixo horizontal, como por exemplo, preço de venda, custo, lu- 
cro. Note-se que os nomes devem ser colocados no quadro NV$ (Nome da Vertical), 
a partir do elemento O — este quadro não está dimensionado na rotina de inicializa- 
ção, porque em caso algum terá mais ou menos de três elementos. A simples menção 
do nome do quadro no programa estrutura o quadro, automaticamente, com dez ele- 
mentos (0-9). 


Linhas 3150-3240: é solicitada ao utilizador a introdução, por cada banco, dos 
dados para o número de colunas especificado. O número introduzido é verificado, 
para assegurar que não irá deslocar o gráfico acima da marca das dezanove unida- 
des. O objectivo do ciclo nas linhas 3180-3220 é assegurar que nenhum valor será in- 
troduzido, que requeira um gráfico maior do que dezanove quadrados de carácter no 
écran. Se um tal valor for introduzido, o utilizador será avisado do facto e solicitado 
a repetir a introdução. 


Ensaio 


Introduza as linhas que se seguem (algumas tornar-se-ão, eventualmente, parte 
do módulo de controlo do programa): 


1030 GOSUB 2000 
1040 GOSUB 3000 
110CLS: END 


Execute agora o programa introduzido até este momento e responda às suas per- 
guntas do modo seguinte: 


Number represented by each unit (número representado por cada unida- 
de): 1 

Columns (colunas): 1 

Banks (bancos): 1 

Name for vertical axis 1 (nome do eixo horizontal): HORIZONTAL 
Name for vertical axis 1 (nome do eixo vertical): VERTICAL 1 

Bank 1, value 1 (banco 1, valor 1): 10 


Após a introdução do último valor, o écran limpa e o programa pára, com a 
mensagem «READY» (pronto). Introduza agora: 


2? UV,ND,NB,NHS$,NV$(0),HH(0,1) 
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e o resultado deverá ser: 


l l 1 
HORIZONTAL VERTICAL 1 10 


Se quiser, pode executar o programa novamente e tentar introduzir valores fal- 
sos. Não deverá poder introduzir qualquer valor de coluna que seja maior do que de- 
zanove vezes o valor de uma só unidade do eixo vertical. 


Módulo 2.3.3: Desenho da estrutura do gráfico 


Tal como o gráfico linear, também este precisa do desenho prévio de uma estru- 
tura, antes de a informação que apresenta se tornar compreensível. A tarefa é efec- 
tuada pelo presente módulo, o qual utiliza ciclos, variáveis e o comando LOCATE 
para colocar caracteres de baixa resolução nas posições correctas no écran. 


Módulo 2.3.3: linhas 4000-4260 

1000 REM 32 JEIEIEIEIEIE IEEE IE IE IEEE IE IE IE DEDE IE IEEE IE IEEE 

49010 REM Draw Framework 

4028 REM SIE IEIEIEIEIEDEIE SEDE IE DEDE IE IE IE GEE IE IE IEEE IE IE IEEE 

4030 CLS 

4240 FOR i=0 TO 3 

4050 LOCATE 6+i,21+i 

4960 PEN 2:PRINT CHR$ (213); STRINGE (29,CH 
R$(145));CHR$(215) 

4070 NEXT i:zPEN 1 

4980 LOCATE 6,1:PRINT STRINGS (SO,CHR$ (21 
2)) 

40920 FOR i=2 TO 20 

4100 LOCATE 4,i:PRINT CHR$(210) 

4110 LOCATE 35,i:PRINT CHR$(21B) 

4120 NEXT à 

4130 FOR i=5 TO 20 STEP 5 

41408 LOCATE 6,i:PRINT STRING$ (SO, CHR$ (21 
B)) 

4150 NEXT i 

41690 LOCATE 1,25:PRINT nh$ 

4170 FOR h=0 TO nb-i 

4190 PEN h+1 

4199 tt$=nv$(h) +" *"+STR$ (uv) 

4200 FOR i=i TO LEN (tt) 

a210 LOCATE Z7+h,1+12:PRINT MID$E(tt$,1i,i) 
4220 NEXT i,h 
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4230 FOR i=B TO 15 STEF S 

4240 LOCATE 1,20-i:PRINT USING "4H"si 
4250 NEXT à 
4260 RETURN 


Comentário 


Linhas 4040-4070: este ciclo imprime uma base, sobre a qual irá erguer-se o grá- 
fico. Os caracteres gráficos estão listados no «Apêndice 3» do seu manual. 


Linha 4080: uma linha ao longo do topo do écran, consistindo no número de ca- 
rácter 210 (uma barra horixontal), trinta vezes. 


Linhas 4090-4120: são as fileiras verticais de marcas que são colocadas em cada 
terminal do gráfico, para representar as dezanove unidades possíveis. 


Linhas 4130-4150: quatro linhas que atravessam transversalmente o gráfico, re- 
presentando unidades de cinco no eixo vertical. 


Linha 4160: é a etiqueta do eixo horizontal. 


Linhas 4170-4220: estes ciclos imprimem o(s) nome(s) do eixo vertical ao longo 
da margem direita do écran, juntamente com o valor representado por cada unidade. 
O valor de ciclo I é utilizado, tanto para movimentar nomes através do eixo, como 
para modificar a cor de cada nome. A cor de cada título corresponderá à cor de um 
dos bancos. 


Linhas 4230-4250: este ciclo coloca números junto aos marcadores de cinco uni- 
dades, na esquerda do gráfico. 


Ensaio 


Introduza mais uma linha: 


1050 GOSUB 4000 


e execute agora o programa. Especifique o valor unitário, uma coluna e três bancos. 
Forneça os três nomes para o eixo vertical. Quando solicitado a especificar o valor 
das colunas, apenas precisará de premir RETURN. Deverá então obter a visualiza- 
ção da estrutura do gráfico, com o nome do eixo horizontal ao fundo e os nomes do 
eixo vertical em cima, à direita. 
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Módulo 2.3.4: Desenho do gráfico 


Este módulo é, na verdade, mais fácil de compreender após ter sido introduzido 
e observado o seu efeito. O módulo não se baseia tanto em princípios gerais como 
em resultados da experimentação, em que se procura ver quais as combinações de ca- 
racteres, e as posições em que estão impressos, que proporcionaram o efeito desejado. 


Módulo 2.3.4: linhas 5000-5220 


SODO REM IEIEIEIEIEIEIEIEIE DEISE IE IE IE SEI IEIEIE IE IE IEEE IE IEEE 
5910 REM Draw Blocks 

5020 REM SSI IE IE IEIEIEIEIEIEIE IE IEIEIEIEIEIEIE IE IEEE IEEE 
S238 FOR h=92 TO nb-i 

52940 PEN h+1 

505040 FOR i=nd TO 1 STEP -—1 

3260 condition=i:WHILE INT(hh(h,i)/uv)< > 
2 AND condition 

99270 FOR j=1 TO INTC(hh(h,i)/uv)+1 

5090 LOCATE 9+4x(i—-1)+h,22+h-5 

3090 IF j=1 THEN PEN 2:PAFER B:FRINT CHR 
$(1453); CHR$(215);:PEN h+1:PRINT CHR$E(1453 
) 

3100 IF 5>1 AND j<INT(hh(h,i)/uv)+1 THEN 
PRINT CHR$(209);" ":CHR$(143) 

5118 IF 5=INT(hh(h,i)/uv)+1i THEN FRINT C 
HR$ (209) ; CHR$ (213): CHR$E (215) 

5120 NEXT 5 

3120 condition=D: WEND 

5140 NEXT à 

5150 NEXT h 

5160 FOR i=90 TO nd-i 

9170 FOR 53=1 TO nb 

51898 LOCATE 9+4xi +5,20+)5 

5198 IF 5>1 OR hh(2,1)=0 OR (5=1 AND nd= 
9) THEN PEN 2:PRINT CHR$ (215) 

32090 NEXT 5 

5219 NEXT à 

5228 RETURN 


Comentário 
Linhas 5030-5150: este ciclo cria o número de bancos especificado. 


Linhas 5050-5140: o segundo ciclo criará o número de colunas especificado, 
funcionando da direita para a esquerda. 
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Linhas 5060-5130: estas linhas criam um ciclo fictício WHILE para operar em 
torno da secção que desenha uma coluna, se o valor dessa coluna for O — o ciclo é 
fictício porque nunca é executado mais de uma vez, em quaisquer circunstâncias. Is- 
to é assegurado tornando o valor da variável CONDITION uma das condições de re- 
petição do ciclo. A redução de CONDITION a 0 antes de WEND ser alcançado, na 
linha 5130, assegura que o ciclo seja sempre executado uma única vez. Torna-se útil 
lembrar esta técnica, já que ao 464 falta um comando EXIT, o qual permitiria que o 
ciclo terminasse automaticamente. 


Linhas 5070-5120: este ciclo constrói uma coluna. A linha 5080 fornece a posi- 
ção de desenho de cada carácter da coluna. A posição começará no extremo direito 
do número de colunas (representado por 1), deslocar-se-á para cima, pela coluna in- 
dividual (ditada por J), e quatro espaços para a esquerda, por cada nova coluna. Pa- 
ra além disto, quando um banco é terminado, o banco de colunas seguinte (represen- 
tado por H) será impresso um espaço abaixo e para a direita do anterior. 

A variável de ciclo J é, tal como foi dito, regulada para se deslocar de 1 até à al- 
tura da coluna. Na primeira passagem pelo ciclo, é criada a base da coluna (linha 
5090). Em passagens subsequentes, são usados diferentes caracteres para representar 
a parte lateral e frontal da coluna, à medida que vai sendo construída, utilizando 
LOCATE para posicionar a impressão. Finalmente, é acrescentado o topo da coluna 
(linha 5110). 


Linhas 5160-5210: depois de terminadas as colunas, restam algumas arestas por 
limar, ao fundo, e estas linhas encarregam-se dessa tarefa. 


Ensaio 


Introduza uma nova linha: 
1060 GOSUB 5000 


e execute o programa. Especifique um valor de unidade 1, três colunas e três bancos. 
Os nomes dos eixos não são relevantes, por isso, escolha à vontade. Quando lhe fo- 
rem solicitados os valores das colunas, introduza o seguinte: 


6,12,18,6,12,18,6,12,18 


Deverá agora obter a visualização clara dos três bancos e das três colunas, pare- 
cendo que os topos de cada uma das três colunas formam uma superfície plana, des- 
de o banco de trás até ao da frente. Note que, ao ler os valores dos três bancos, deve 
partir do princípio de que o topo da barra mais adiantada continua para trás, até à 
posição mais atrasada, sendo o valor da coluna lido a partir do limite traseiro da co- 
luna, tal como aparecerá no banco mais atrasado. No exemplo do écran, o que se vê 
são três colunas, representando as três barras de cada coluna o mesmo valor, embo- 
ra, fisicamente, a barra frontal apareça mais baixa no écran. Isto é necessário para 
preservar a ilusão tridimensional. 

Faça experiências com o programa, para ver como ele trata diferentes valores de 
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dados. Verificará que apenas funciona com dados em que um banco nunca seja mais 
alto do que o que se encontra atrás. Existe muito material adequado a este tipo de 
padrão, tal como o dos dados de preço/custo/lucro mencionados anteriormente. 


Módulos 2.3.5. e 2.3.6: Armazenamento de dados em fita 


Passamos agora a uma área que muitas pessoas negligenciam nos programas 
que fazem, à sua própria custa — o armazenamento de dados em fita. Se você come- 
teu um ou dois erros na entrada do programa, sem dúvida descobriu que a reintrodu- 
ção dos dados pode tornar-se um pouco mais do que irritante, ao fim de algum tem- 
po. Além disto, em muitos programas há pouca vantagem em colocar os itens de da- 
dos no computador se, no fim e apesar de tudo, você tiver de se lembrar deles de ca- 
da vez que desliga o 464 — talvez que, com o programa corrente, não seja completa- 
mente impraticável introduzir os dados de novo. Mas que se passa com programas 
mais complexos, em que podem existir, literalmente, centenas de itens de informa- 
ção? 

Todos estes problemas podem ser ultrapassados com a utilização permanente do 
gravador de cassetes para registar os dados introduzidos e, após tê-lo feito, voltar a 
passá-los para o 464 sempre que o utilizador o deseje. Tal tarefa é concretizada por 
estes dois módulos. 


Módulos 2.3.5. e 2.3.6: linhas 6000-7110 


SODO REM III IE IEEE IEEE IEEE IE ICI IEEE EI E 
6010 REM Save Data to Tape 

OLA REM III IE IEEE SETE IE IE TETE IEEE IE EIA E 
6038 OPENOUT "graphdata" 

6040 PRINT H9,nbzr$:;nd;rg;nhg;r&;uv 
6050 FOR i=0 TO nb-i 

6060 FRINT H9,nvEti) 

6070 FOR 5=0 TO nd 

6080 PRINT 49,hh(i,5) 

6290 NEXT j,i 

6100 PRINT &9:CLOSEOUT 

6118 RETURN 

TODO REM 3 JESSE IE TESE IEEE IE DEDE DEDE IE IE IE SETE IEL IEEE IEEE 
7010 REM Load Data from Tape 

TOLD REM IEEE DE IE IE IE IE IE DETESTO DE DEDE IE IE DE DEISE IEEE II DEE E 
70350 OPFENIN “graphdata" 

7040 INPUT H9,nb,nd,nh$,uv 

70582 FOR i=8 TO nb-i 

7D60 INPUT H9,nv$t(i) 

7070 FOR 5=0 TO nd 

7080 INPUT H9,hh(i,ã) 

7090 NEXT 5,i 


INFORMÁTICA 4 — 6 O AMSTRAD FUNCIONAL 81 


7100 CLOSEIN 
71180 RETURN 


Comentário 


Linha 6030: antes de os dados poderem ser armazenados em fita, deve ser pre- 
parado lugar para eles, processo conhecido por «abertura de um ficheiro». O forma- 
to correspondente é: 


OPENOUT "FILENAME” 


Linhas 6040-6090: depois de termos aberto o ficheiro, tudo o que é preciso fazer 
é imprimir-lhe informação. Isto é conseguido através de um comando especial 
PRINT &. Os itens impressos no ficheiro são formados pelo conteúdo do quadro 
principal (HH$) e pelas variáveis principais. 


Linha 6040: uma coisa a salientar quanto à instrução PRINT & é a presença de 
vários R$ na linha. Deve lembrar-se que, no primeiro módulo do programa, R$ foi 
igualado a CHR$(13), que é o carácter RETURN e significa o sinal de um item a ser 
impresso. Quando se imprimem diversos itens num ficheiro, a partir de uma só ins- 
trução PRINT &, todos os itens são executados em conjunto, a menos que seja in- 
cluído R$ entre os itens a serem impressos. 


Linha 6060: no comentário sobre a última linha, afirmou-se que R$ (ou qual- 
quer outra variável igual a CHR$(13)) devia ser incluído para separar os itens — en- 
tão, por que razão isso não é feito no caso destes dois ciclos, os quais imprimem em 
fita o conteúdo de dois quadros do ficheiro? A resposta é que, sempre que uma ins- 
trução PRINT, ou PRINT &, termina sem pontuação, o 464 segue automaticamente 
o último item impresso com um carácter RETURN — é por isto que os itens são im- 
pressos em linhas separadas do écran, caso o item precedente não tenha uma vírgula 
ou ponto e vírgula no final. 


Linha 6100: quando se imprime num ficheiro, é aconselhável terminar com um 
único e vazio PRINT 4 <FILE NUMBER >, o que assegura que quaisquer itens na 
memória do computador ainda à espera de serem impressos serão apagados. Final- 
mente, o ficheiro deve ser fechado (CLOSE), utilizando CLOSEOUT num ficheiro 
em que tenham sido salvaguardados dados. Se isto não for efectuado, significa que o 
número de ficheiro não estará disponível para futura utilização e que mesmo os da- 
dos em fita poderão perder-se, quando o programa tentar voltar a lê-los. 


Linhas 7000-7110: estas linhas executam a função oposta às de cima, ou seja, 
voltam a chamar dados previamente armazenados a partir da fita. 


Linha 7030: uma vez mais, deve ser aberto (OPEN) um ficheiro. A única dife- 
rença entre esta instrução OPEN e a anterior é que se utiliza a forma OPENIN de 
OPEN, dizendo ao sistema que pretendemos apanhar dados da fita. 


Linhas 7040-7090: o oposto de PRINT & é INPUT &. Note-se que não precisa- 
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mos de utilizar o separador R$ ao introduzir (INPUT) dados. É da natureza de IN- 
PUT e INPUT f não reconhecerem que receberam um item de dados até que EN- 
TER seja premido ou um carácter RETURN lido a partir da fita. 


Linha 7100: tal como acontece na linha 6100, o ficheiro deve ser fechado (CLO- 
SE) quando se tiver terminado. 


Ensaio 


Será melhor deixar o ensaio deste módulo até terem sido introduzidas as poucas 
linhas necessárias para completar o módulo de controlo do programa. 


Módulo 2.3.7: O módulo de controlo 


Foram já introduzidas muitas das linhas deste módulo ao construírem-se os pro- 
cedimentos de ensaio ao programa. Tudo o que resta fazer é assegurar que o módulo 
seja completado, voltando a verificar a listagem seguinte. 


Módulo 2.3.7: linhas 1000-1110 

1IDDO REM SESESEIEIE IE SETE DE IE IEEE DEDE DEDE ICI IEEE EE 
1910 REM Control 

1020 REMETE TESES TETE IE IE TETE TE TETE SETE SETE DE EE ICI IEEE 
1830 GOSUE 2000 

1940 IF LONWER$ (g3)="y" THEN GOSUE 7000 E 
LSE GOSUB Z000 

1950 GCOSUE 4000 

1260 GOSUE 5900 

id70 WHILE INKEYy$="" 

igag wWEND 

Ig90 LOCATE 1,25: INFUT "Save data to tap 
e (y/n)"sgã 

1100 IF LOWER$S(gqE)="v" THEN GOSUE óá008 
1iig CLS: END 


Ensaio 


Execute apenas o programa. Deve agora ser capaz de introduzir os dados para 
um gráfico. Quando o gráfico tiver sido visualizado, a pressão de qualquer tecla re- 
sultará na solicitação da salvaguarda dos dados. Antes de responder «Y», assegure- 
se de que se encontra no gravador de dados uma fita apropriada (com certeza não 
pretende escrever um programa por cima do outro). Quando o programa tiver termi- 
nado a salvaguarda dos dados, volte a executá-lo e, desta vez, responda «Y» se ele 
lhe perguntar se pretende carregar a partir da fita. Deverá agora obter a visualização 
do mesmo gráfico. Se este ensaio for satisfatório, o programa estará pronto para uti- 
lização. 
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CAPÍTULO 3 


«Son et lumiére» 


Vamos observar mais de perto, neste capítulo, as possibilidades do 464 no que 
respeita ao som e gráficos. Na maioria dos casos, os programas que você escrever te- 
rão algumas pequenas rotinas incluídas, para desempenharem tarefas gráficas ou de 
som, ainda que seja apenas algo tão trivial como o fácil módulo de título ilustrado 
no último capítulo ou o alarme de dois tons. Noutros casos, porém, há necessidade 
de algo mais ambicioso, um desenho complexo ou uma peça musical para alegrar um 
programa. Nestes casos, em vez de se escrever uma rotina separada para criar o dese- 
nho ou melodia, de cada vez que ela é necessária, torna-se mais prático ter à mão al- 
gumas ferramentas que lhe permitam criar desenhos mais facilmente, chamando-as 
depois a partir da fita, para utilização em programas subsequentes. 

Neste capítulo encontrará três dessas ferramentas, que lhe permitirão criar dese- 
nhos em alta resolução, desenhar os seus próprios conjuntos de caracteres e escrever 
e editar música no seu 464. Com as vantagens proporcionadas pelos programas deste 
capítulo, o único limite à utilização de som e gráficos nos seus próprios programas 
será a imaginação que conseguir arranjar. 

Os programas incluídos neste capítulo são: 


CARACTERES: permite a criação de conjuntos de caracteres ao gosto de cada 
um. 


DESENHADOR: uma ferramenta para criar desenhos em alta resolução. 
MÚSICA: permite-lhe introduzir melodias bipartidas num formato fácil e 
reproduzi-las. 
PROGRAMA 3.1: CARACTERES 
Função do programa 
Depois de termos visto, no capítulo anterior, algo do que pode obter-se com 
gráficos de alta resolução, passamos ao outro lado do problema, os gráficos de baixa 


resolução, com um programa que lhe permite alterar a forma dos caracteres que o 
464 imprime no écran. Mas, antes de passarmos ao próprio programa, é necessária 
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uma palavra de explicação sobre a forma como são criados e impressos os caracteres 
em modo de baixa resolução. 

O écran de baixa resolução do 464 tem espaço para vinte e cinco linhas, cada 
uma com quarenta caracteres, num total de mil espaços de caracteres. Por outras pa- 
lavras, você poderia imprimir no écran mil itens separados, ainda que alguns deles se 
repetissem, já que o 464 não pode gerar mil caracteres diferentes ao mesmo tempo. 
Este milhar, no entanto, não põe fim à história. Se se observar de perto qualquer ca- 
rácter do écran, verificar-se-á que não são formados por linhas compactas, tal como 
as palavras com que se escrevem estas linhas, mas antes por pontos. De facto, cada 
um dos mil espaços de caracteres do écran é constituído por sessenta e quatro posi- 
ções de pontos e são as combinações destes sessenta e quatro pontos que formam ca- 
da carácter que o 464 consegue visualizar. A letra «A», por exemplo, tem a constitui- 
ção que se apresenta na figura 3.1. 


ROM 1 --> 
--> 0 
-> 00 
-> 00 
-> 00 
-> 00 
-> 00 
--> 


CITA alwrN a 


Fig. 3.1 — Ampliação da letra «A» tal como aparece no écran 


Os pontos que constituem os caracteres são conhecidos por pixels, que é a abre- 
viatura de «picture elements», e representam o item mais pequeno que o 464 pode 
tratar no écran, quer em modo de alta quer de baixa resolução. 

Formas tão complexas não aparecem por acaso. Parece claro que, algures na 
memória do 464, deve estar estabelecido que, quando você prime a tecla marcada 
com «A», o padrão de pontos mostrado na ilustração apareça no écran. De facto, 
todos os caracteres que o 464 pode imprimir estão armazenados sob a forma de nú- 
meros, num bloco de memória chamado «memória de caracteres» ou «carácter 
ROM». A cada carácter são atribuídos oito bytes de memória, e cada um destes 
bytes determina o local onde os pixels irão aparecer, numa das fiadas do carácter. Is- 
to é conseguido transformando o valor de cada byte numa imagem da fiada do siste- 
ma binário de numeração utilizado pelo 464, em que os números são expressos como 
potências do algarismo 2, em vez do número 10, tal como acontece com o nosso sis- 
tema normal (decimal) de contagem. Assim: 


2013006 


significa, no nosso modo de contagem usual: 


(2*1076) + (0*10"5) + (1*10"4, + 43*1073) + (0*10"2) + (0*10"1) + (6* 1070) 
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No sistema binário, no entanto, os únicos dígitos permitidos são o «1» e o «0», 
pelo que um número como: 


11001010 


significa: 
(2:N+(2:6+(273)+(271) — ignorando os zeros. 


Não é necessário um conhecimento completo do sistema binário, desde que você 
se lembre de que um único byte de memória no 464 é capaz de conter um número bi- 
nário de oito dígitos e que todos aqueles 1 e O são uma forma perfeita de registar 
quais os pixels de uma fiada de um carácter que são «ligados». A letra «A», por 
exemplo, transforma-se nos oito números binários que se seguem: 


00011000 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 


Se olhar com atenção, ainda pode distinguir o «A» com bastante clareza, desta 
vez impresso em «1», em vez de pixels, embora você tivesse algumas dificuldades em 
o reconhecer como: 


24,60,102,102,126,102,102,0 


que é a forma correspondente aos números binários, quando traduzidos para o nos- 
so sistema mais confortável de numeração decimal. 

O objectivo de tudo isto é conduzir ao facto de que, quando solicitado a impri-. 
mir um carácter no écran, o 464 procura-o na «memória de caracteres» e utiliza o 
que aí encontra para desenhar o carácter no écran. 

Decorre de tudo isto que, se fosse possível alterar o conteúdo da memória de ca- 
racteres, a forma dos caracteres impressos no écran alterar-se-ia também. Poderia- 
mos determinar os tipos de letra, novos caracteres gráficos ou qualquer outra coisa 
que coubesse no básico quadrado gráfico de 8*8. 

O problema, no entanto, é que a memória de caracteres não pode ser alterada. 
Faz parte da ROM, ou «read only memory» (memória morta)!, permanentemente 
incluída no 464. O que podemos fazer é copiá-la para algures na RAM, ou tipo de 
memória que pode ser alterado, utilizando depois os dados alterados em conjugação 


1 Memória que apenas permite leitura e cujo programa foi preestabelecido em circuitos, díodos ou 
transistores. (N. do T.) 
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com o poderoso comando SYMBOL, para modificar os próprios caracteres. Desta 
forma, é possível manipular o conjunto de caracteres como se queira — e é este o ob- 
jectivo do programa seguinte. 


eae 
ends 

- 

o b-) 
PAD 

Separe 


Character number: 695 


; to invert 

Ê to nirror 

! to return 

: to ink in square 

: to blank ouf square 

| to turn 

á to place in memory 

: to save to tape 

* to load from tape 

: to normalise character set 
to end 

rsor keys to move 


Fig. 3.2 — Visualização do «Gráfico 3D» 


A visualização mostra o écran durante o modo de edição de caracteres, com 
uma letra «A» que foi rodada 90 graus. 


Módulo 3.1.1: O módulo de controlo 


Em condições normais, não apresentaríamos um módulo de controlo no início 
do processo de introdução de um programa, mas este é curto e, sem ele, o programa 
necessitará de um GOSUB para ser introduzido, antes de começar em condições con- 
venientes. 


Módulo 3.1.1: linhas 10000-10050 


ÍDODO REMEREREEKELEEERLECEESERKEREA RAR 
19014 REM Control 

10D2D. REMERERELLLEELEEREERARERERER RAR 
IZQ0Z0 GOSUB 11000 

indIB GOSUB 12000 

iBgosa CLS: END 
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Módulo 3.1.2: Comutação para o novo conjunto de caracteres 


O objectivo deste módulo é levar a bom termo a tarefa delineada na introdução 
do programa, ou seja, a de transferir os dados dos caracteres para alguma parte de 
memória onde possam ser manipulados. De facto, o local onde eles ficarão armaze- 
nados é um quadro denominado C%, o que nos permite todo o género de flexibilida- 
de no armazenamento e alteração dos dados. 


Módulo 3.1.2: linhas 11000-11190 


11DO FREMERELELKHECEEELLEEERETEREE REA 
1liBdif REM Initialise 

ii REMEXEERLEHEEREEREEEEE RELER E 
iizgzo CLS:FEN L:PFRINT "First user define 
d& character": INFUT "(52-255)":fc 

ilQg4A IF fcis2 OR fc>255 THEN PRINT Oo" 
***=: DUT OF RANGE: TRY AGâIN sH**": GOTO 
1 igor 

iigag SvYMEOL AFTER fo 

11062 IF in=B THEN ch=fc:DIM alt?) tA(Z) 
as q 1 

*i 1272 menut=“imriBtos!|xe'"+CHRE (240) +CHRE 
(241) +CHRS (2472) +CHRE (247) 

ilgeg MODE 2 

iligs:2 LOCATE Só, 14:FRINT "FLEASE WAIT" 
11084 LOCATE à,i 

iigoA FOR i=fcoc TO 255 

11102 FRINT CMRE tio); 

liilo NEXT i 

iiize FOR i=0 TO Cos-fo 

iiizg FOR 3=B TO 7 

liiãiD cúátfc+i,i)=PEEF(49410724+)42048+i) 
1iiisg NEXT 5 

1liióg NEXT à 

1iiizQ MODE 1 

jiiigl0 aéf="r" 

111920 RETURN 


Comentário 


Linhas 11030-11050: o 464 proporciona-lhe a oportunidade de definir qualquer 
coisa a partir de 16 até 255 dos seus 255 caracteres — mas você apenas pode definir 
mais de dezasseis se lhe transmitir que o deseja fazer, utilizando o comando 
SYMBOL AFTER. SYMBOL AFTER, seguido de um número, significa apenas que, 
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a partir desse momento, você deseja poder alterar qualquer carácter a partir do re- 
presentado pelo número a seguir a SYMBOL AFTER até ao carácter número 255, 
utilizando o comando SYMBOL, que iremos abordar daqui a pouco. Estas linhas 
permitem-lhe capacitar o primeiro carácter para ser redefinido em qualquer ponto, 
desde o carácter número 32 até ao 255. Em utilização normal, o 464 permite-lhe re- 
definir dezasseis caracteres, do número 240 em diante. 


Linha 11060: excepto num caso específico durante a utilização do programa, es- 
ta linha será usada para estabelecer o quadro principal, C%, que conterá os dados 
dos caracteres (256 linhas com oito números em cada linha) e dois quadros que são 
usados para a manipulação temporária de um carácter individual. 


Linha 11070: trata-se de uma linha importante, cujo significado será explicado 
quando chegarmos ao módulo que trata do menu do programa. 


Linhas 11080-11170: um pedaço trabalhoso, este. Em vez de retirar os dados da 
memória, é mais simples fazê-lo a partir de um local óbvio, o próprio écran. A van- 
tagem disto é que, no futuro, se você desejar recolher dados para caracteres seleccio- 
nados, tudo o que é preciso é imprimir esses caracteres no écran. Para isto, precisa- 
mos primeiro mudar para o modo 2 (MODE 2) do écran, o modo de alta resolução. 
A razão disto é que, em modo 2, a disposição dos pixels no écran corresponde exac- 
tamente ao padrão descrito na introdução do programa. Em modo 1 (MODE 1), os 
dígitos binários individuais não são copiados exactamente pelos pixels no écran, vis- 
to que são impressos dois pixels, horizontalmente, por cada dígito binário. 

Após a mudança de modo, a tarefa seguinte é apenas imprimir todos os caracte- 
res de FC (First Character, ou seja, o primeiro carácter especificado pelo utilizador) 
até 255, da primeira posição no écran para a frente. O segundo par de ciclos (linhas 
11120-11160) lê agora os bytes de memória que constituem a visualização do écran. 
Este processo não é tão directo quanto podia ser, devido à forma como a memória 
de écran está concebida. O bloco de memória que regista o conteúdo do écran está 
assim concebido (não entraremos em razões) para que, se se pretender encontrar os 
oito bytes que formam o carácter no canto superior esquerdo (em MODE 2), seja 
preciso procurar no byte de memória 49152 o byte superior do carácter, depois no 
byte 51200 (49152 + 2048) o seguinte abaixo do anterior, e assim por diante, em pas- 
sos de 2048 bytes por cada um dos oito bytes. O carácter seguinte para a direita co- 
meça no byte 49153 e continua para baixo, em passos de 2048 bytes. Quando é atin- 
gido o fim da primeira linha de caracteres, a deslocação de um byte para a frente 
conduz-nos até ao primeiro byte do primeiro carácter da segunda linha. Se ainda não 
ficou, de modo algum, esclarecido quanto a tudo isto, experimente introduzir o pe- 
queno programa de ensaio que se segue: 


IOMODE 2 


20 FOR [=49152 TO 49152 + 1024 
30 POKE [,255 
40NEXTI 
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Verificará que, embora esteja a percorrer (POKE) a memória de écran em pas- 
sos de um byte, a linha criada com a activação dos pixels se encontra ao longo do to- 
po das linhas de caracteres. 

Já de posse destes elementos, você deve poder ver aquilo que a linha 11140 está 
a fazer, enquanto recolhe um byte de cada vez, a partir dos dados de caracteres da 
memória de écran. 


Linhas 11180: esta linha estabelece uma variável utilizada para armazenar res- 
postas de menu, de modo que o programa não termine acidentalmente aquando da 
primeira execução. 


Módulo 3.1.3: Visualização de um carácter ampliado 


A essência deste programa é tornar mais fácil a edição de caracteres. Uma for- 
ma de obter isto é imprimindo uma versão ampliada de um carácter especificado, 
para que possa deslocar-se um cursor em torno dele. Este módulo permite a especifi- 
cação do carácter e imprime-o. 


Módulo 3.1.3: linhas 12000-12220 

12000 REM IEEE TETE IDE DE IE IE IE IEIEIEIEIE IE IE IE IE IEICIE ICI II 
i2010 REM Print Grid 

12020 REM III IEIEIEIEIE IE IE TETE IE IEIE ICI IEICIEIE ILE IEEE 
iÍ2030 WHILE af<>"e" 

12040 CLS:FEN 1 

12050 FOR i=2 TO 7 

12060 IF done=B THEN aíZ(ti)j=cítch,i) 
12070 b$=RIGHT$(BIN$(256+aZ(i)),8) 

i2080 FOR 5j=1 TO 8 

12090 IF MID$(b$,5,1)="1" THEN PRINT CHR 
$(231); ELSE PRINT! Mo 

12100 NEXT 5 

12110 PEN SF: PRINT CHR$(1453):FEN 1 

12128 NEXT i:zdone=i 

12130 PEN Z:FRINT STRINGS (2,0CHRE(145)):F 
EN à 

i2140 LOCATE 25,5:PRINT CHRE (ch) 

12150 FEN F:LOCATE 1,ii 

i:164 FRINT “Character number: "“:; ch: PRINT 
12170 IF af="r" THEN INPUT “Number to mo 
ve pointer (Q2 to redefine) “mm: ch=ch+m 
m 

12180 IF ch<fc THEN ch=fc 

i2198 IF ch>2Zas THEN ch=255 

12200 IF mm=B THEN GOSUE 13090 ELSE done 
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210 wEND 
228 RETURN 


a) 
a 
2 
q 
2 


bes Tee. 


Comentário 


Linhas 12040-12120: os dados de carácter para um determinado carácter são li- 
dos do quadro C% para o quadro A % e depois utilizados para imprimir uma versão 
ampliada do carácter no écran. O modo de conseguir isto é, em primeiro lugar, usar 
BINS$ para traduzir cada byte dos dados de caracteres para uma cadeia de algarismos 
1e 0. Depois, é impresso um carácter circular preenchido (CHR$(231)), para corres- 
ponder à posição de um 1 na cadeia. O padrão de 8 * 8 é rodeado por uma margem 
compacta formada por CHR$(143). Finalmente, a variável DONE é colocada no fi- 
nal, para que, se o módulo for repetido sem alterações ao carácter, os dados não se- 
jam recopiados para AY. 


Linha 12140: é colocada à direita da versão ampliada uma outra versão do ca- 
rácter, em tamanho normal. 


Linhas 12170-12190: quando o programa é executado pela primeira vez, o carác- 
ter visualizado será o primeiro da fiada a poder ser redefinido, tal como se encontra 
armazenado na variável FC. Estas linhas permitem a focagem do carácter, para as 
deslocações deste dentro da fiada limitada por FC e 255. 


Ensaio 


Execute o programa e especifique 65 como o primeiro carácter definido pelo uti- 
lizador. Depois de a fiada do carácter ter sido visualizada e depois de uma pausa, pa- 
ra permitir a transferência dos dados, deverá ver uma versão ampliada do símbolo 
«A» desenhada no canto superior direito. Deverá também poder deslocar-se pelo 
conjunto de caracteres, examinando qualquer carácter que deseje, a partir do A. No- 
te que ainda não pode fazer nada ao carácter visualizado. Isso será conseguido, even- 
tualmente, premindo «0» para chamar um módulo subsequente. Normalmente, o 
programa já teria parado ao ser introduzido o modo «0», mas pode fazê-lo neste 
módulo premindo ESC. 


Módulo 3.1.4: Um cursor definido pelo utilizador 


É um módulo simples, destinado a visualizar a «imitação» de um cursor, num 
local escolhido. 


Módulo 3.1.4: linhas 14000-14110 


149000 REM se 36 SE E IE IE IE IEEE SETE IE SE IEEE IE RITO TE EE 
148120 REM Display Cursor 
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i 4A2(A REMETE 
14025 b$=RIGHT$ (RINS (256+a%(y)),8) 

14030 LOCATE x+1,y+1:PAPER 2:PEN 1 

14040 IF MID$(b$,x+1,1)="1" THEN PRINT C 
HR$ (231); ELSE PRINT "ns 

14050 at="" 

14060 WHILE afg="" 

14070 a$=LOWER$(INKEEY$) 

14088 WEND 

14090 LOCATE x+1,y+1:PAPER Q 

14100 IF MID$(b$,x+1,1)="1" THEN PRINT C 
HR$ (231); ELSE PRINT" n; 

14110 RETURN 


Comentário 


Linhas 14030-14040: a aparência do cursor é criada através da alteração das co- 
res de papel (PAPER) e tinta (INK), de forma a simular a presença do cursor nor- 
mal, reimprimindo depois, ou um espaço, ou o pequeno círculo preenchido utilizado 
para visualizar versões ampliadas dos caracteres. 


Linhas 14050-14080: trata-se de um estado de espera, até que seja premida uma 
tecla. 


Linhas 14090-14100: a posição do carácter em que se encontra localizado o cur- 
sor é reimpresso em cores normais. 


Ensaio 
Introduza: 
RUN 14000[RETURN] 


e deverá ver um quadrado-cursor no canto superior esquerdo do écran. Prima uma 
tecla e o programa parará, com uma mensagem de erro «Unexpected RETURN». 


Módulo 3.1.5: Inserção de comandos 


Este módulo está organizado para apresentar um menu, para deslocar o cursor 
intermitente, para iluminar ou apagar os pixels ampliados e para aceitar comandos 
que manipulem o carácter corrente. Instruções completas quanto à sua utilização es- 
tão contidas no menu. O único aspecto original acerca do módulo é a forma como 
são aceites as instruções. 
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Módulo 3.1.5: linhas 13000-13220 

13000 REM 4232 IEIEIE IEEE IEEE IE IE DE IE DE IE IEEE IE IE EEE E E 
15010 REM Redefine Character 

13920 REM 333 3ESE IE JEI IE IEL IE IE IE TE IEEE E III EE EE 
iÍ358Z0 LOCATE 1,13:PRINT STRING$(40," "5 
13240 LOCATE 1,13 É 

15059 FRINT “Ci to invert" 

13060 PRINT “'m' to mirror" 

13070 PRINT "* to return" 

132080 PRINT "* to ink in square" 
139990 PRINT "* to blank out square" 
13190 PRINT "* to turn" 

131108 PRINT" to place in memory" 
13120 PRINT o "* to save to tape” 

131530 PRINT "* to load from tape” 
13140 PRINT "* to normalise character 
set” 

13150 FRINT "'e* to end" 

13160 FRINT “Cursor keys to move" 

13170 ret=92:WHILE ret=Q0 

13180 GOSUB 1409990 

1Z198 z=INSTR (menus ,ag) 

13290 ON z GOSUB 15000, 16000, 17000, 19009 
119000, 20000, 219000, 272000, 2:000, 240090, 250 
DO, 26000, 27000, 20000, 29200 

3210 WEND 

132280 RETURN 


Xx"nvrg-s 


Comentário 


Linha 13170-13210: deve lembrar-se, com certeza, de que no módulo de iniciali- 
zação organizámos uma cadeia bastante invulgar chamada MENUS. Esta linha é a 
razão para isso. Juntas, permitem que se faça uma tradução económica de uma só 
tecla premida para um número, através da utilização de INSTR. A posição de um ca- 
rácter incluído em MENUS é o valor que será atribuído a Z e utilizado para o ON Z 
GOSUB, na linha seguinte. A variável RET é usada para indicar ao módulo se toda a 
visualização precisa de ser redesenhada. Se RET for igual a O ao regressar da exe- 
cução, então o carácter ampliado não será redesenhado, poupando-se tempo. 


Ensaio 
Execute o programa. Quando a letra «A» tiver sido desenhada, deverá poder in- 


troduzir «O» e obter a visualização do menu. Nenhum dos comandos terá qualquer 
efeito para além da paragem do programa com uma mensagem de erro. 
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Módulo 3.1.6: Retorno do modo de edição 


Premindo «R» a partir do menu principal, retorna-se a execução ao módulo an- 
terior, permitindo assim ao utilizador deslocar-se até outro carácter depois de ter tra- 
tado do corrente. 


Módulo 3.1.6: linhas 17000-17030 


17000 REM 33 SCIEIEIE TETE IE IE IE IEIE IE IDE IEEE ICI III IE IE 
17019 REM Return 

17020 REM SEI IEIEEDEIE IE DEE DE IE IE IE IE IE IE IEEE IEEE EE EE 
170530 ret=1:RETURN 


Ensaio 


Deverá agora poder mover-se entre o menu principal e os módulos de movimen- 
tação de caracteres. 


Módulo 3.1.7: Deslocação do cursor 


Após termo-nos atribuído um cursor, acrescentamos agora a possibilidade de o 
deslocar, o que se faz alterando simplesmente so valores das variáveis de coordenada 
do cursor X e Y. 


Módulo 3.1.7: linhas 26000-29040 

TODD REMII IE IEIEIEIEIEIEIE IE TETE TETE IEL IEEE IEEE IE 
26010 REM Up 

26020 REM 3 SESI IE IE IE IE IE IE IEEE TE TETE SETE IE IEEE IEEE IEEE 
26030 IF y>0 THEN y=y-i 

26040 RETURN 

27000 REM SME IE IE TETE TESE IE IE IE IE IE IE IE IEEE IE IEEE IICA 
27010 REM Down 

27020 REM IEEE IETEIE IE IE TETE IE IE IEEE DE IEEE III 
27030 IF y<7 THEN y=y+i 

27040 RETURN 

2BBDO REM IE IE IE IE IE TETE IE IE TE IEIE IE IE DE IE IEIE IEEE IEEE 
28010 REM Left 

2BD20 REM IJ IEIEIEIE IEEE IE IE ICI IEEE IEEE 
29030 IF x>B THEN x=x-1 

289048 RETURN 

29000 REMEREEEEELELEEREELEREEEERRR RR 
29810 REM Right 

2PD2B REM III DE IEIEDEIEIE TE IE IE IE IE IEEE IE IEIEIEIE EIEIE IE E E 
29030 IF x<7 THEN x=u+1 

=9040 RETURN 
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Ensaio 


Com a visualização do menu principal, deverá agora poder deslocar o cursor em 
torno do carácter ampliado, embora não possa ainda fazer qualquer alteração ao de- 
senho. 


Módulo 3.1.8: Preenchimento a tinta e apagamento 


Introduzindo «1» ou «0», a partir do menu principal, activa-se ou apaga-se um 
pixel individual do desenho ampliado. Isto é efectuado pelo módulo corrente, atra- 
vés da utilização dos operadores lógicos AND e OR. 


Módulo 3.1.8: linhas 18000-19060 

18200 REM 33 3EJEIEJEIEIE IE IE IE IE DE IE IE IE IE DEE IE IE IE IE DE IEEE DEE 
18910 REM Ink In Square 

1ÍBD2D REM 333 IEIEIE JE IE IE IE DEDE IE IE IE IE DE IE IE IEEE IEEE IEEE 
190350 aí(y)=ai(ty) OR 2º(7-x) 

19940 LOCATE x+1,y+i 

18050 PRINT CHR$(C2S1) 

189060 RETURN 

19000 REM 2 3EJEIEIE JE DEDE IE IE IE DEDE IEEE IE DEDE IE IE IE IEEE IE E EE 
19010 REM Blank Out Square 

199020 REM 6 3€3E3EIEIEIE IEEE IE DEDE IE DE IE IE DE IE IE IE IE IE IE IEEE IE 
19030 aí(y)=aí(y) AND 255-2º(7-x) 

19940 LOCATE x+1i,y+i 

19050 PRINT 

199690 RETURN 


Comentário 


Linha 18030: a utilização de OR é um método comum de passar um, ou mais, 
dos dígitos binários de qualquer número para 1. O que OR faz é comparar dois nú- 
meros binários, produzindo depois um terceiro em que cada dígito binário é regula- 
do para 1, caso o dígito binário em qualquer dos números originais fosse 1. Se, por 
exemplo, os dois números originais fossem: 


124 = 01111100 
e 
3 = 00000011 


o resultado seria 127, ou 01111111, visto que cada dígito binário era 1, em qualquer 
dos dois números. 
Se desejarmos assegurar que um dígito binário específico, número N lido da di- 
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reita para a esquerda, é regulado para 1, tudo o que é preciso fazer é utilizar OR 
2.N. 

No caso do programa, a regulação de um dígito binário específico é o mesmo 
que activar um pixel, já que o estado dos pixels é determinado pelo estado dos diígi- 
tos binários nos oito números que constituem os dados de caracteres. 


Linha 19030: o oposto de OR, quando se trata de ligar e desligar dígitos binários 
individuais, é AND. Quando dois números são alvo da operação lógica AND, o nú- 
mero resultante apenas tem dígitos regulados para 1, nas posições em que ambos os 
números originais as tinham. Assim, a aplicação de AND a 124 e 3 tal como foi des- 
crito em cima produzirá 0, já que nenhum dos dígitos binários está estabelecido em 
ambos os números. A aplicação de AND a um número entre O e 255 com 255 não é 
relevante, uma vez que, no número 255, todos os oito dígitos estão regulados para 1. 
No entanto, qualquer um dos dígitos de 255 pode ser desligado subtraindo 2.N a 
255, sendo N o número do dígito a ser alterado para 0. Em consequência, a aplica- 
ção de AND a um número, X, com 255-2.N altera o dígito binário N para 0, em X. 

Em termos do programa, isto equivale ao apagamento de um pixel. 


Ensaio 


Quando em modo de edição de caracteres, você deverá poder deslocar o cursor 
para qualquer lado, activando ou desactivando pixels à vontade. 


Módulo 3.1.9: Criação de um carácter em forma inversa 


Passamos agora a uma série de três módulos que tornam um pouco mais fácil a 
tarefa da edição de caracteres, através da execução de operações em todo o carácter, 
tais como torná-lo na sua imagem reflectida ou rodá-lo até 90 graus. O módulo cor- 
rente apenas cria uma inversão do carácter existente. Qualquer pixel que estivesse 
activado será apagado e qualquer posição que estivesse em branco terá um pixel acti- 
vado nesse ponto. Isto consegue-se invertendo os 1 e O binários dos bytes que consti- 
tuem o carácter. 


Módulo 3.1.9: linhas 15000-15060 

15200 REM 33 3EIEIEIEIE JE IE IE IE IE IE IE IE IE TESE IEEE EEE EE E 
15010 REM Invert 

1590208 REM SEJ IEIEIEIEIEIE IE IE IEEE IE IEEE IE IEEE IEEE IE 
1590308 FOR i=9 TO 7 

15040 aú(i)j=255-aí(i) 

15050 NEXT à 

159060 ret=1:RETURN 


Ensaio 

Execute o programa e introduza o modo de edição. Quando o menu for visuali- 
zado, prima «Il» e deverá obter um carácter invertido. Prima novamente «l» e o ca- 
rácter deverá voltar ao normal. Note que isto apenas se refere ao carácter ampliado e 
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não ao de tamanho normal, à direita do quadrado de 8*8. O carácter de tamanho 
normal apenas se alterará se você decidir introduzir o seu carácter de edição na me- 
mória, utilizando um módulo futuro. 


Módulo 3.1.10: Criação de uma imagem reflexa 


Este módulo pega no carácter visualizado e «vira-o», como se fosse visto através 
de um espelho. 


Módulo 3.1.10: linhas 16000-16100 


160DD REM 33623 IEIEIEIEIEIE IE IE IEIE IE IE IEL ICI ICI III IE 
16210 REM Mirror 

16D2D REM SESI JEIEIEIEIEIEIEIEIEIEIEIE DE IEIE III IEEE EE 
16930 FOR i=8 TO 7 

149040 bD$=RIGHT$(BIN$(256+aí(i)),8B) 
16050 aí(i)=0 

169260 FOR 5=0 TO 7 

16070 aú(i)=aí(i)+2ºjxVAL (MIDE(D$E, j+1,1) 
) 

16080 NEXT 5 

16090 NEXT i 

14100 ret=1:RETURN 


Comentário 


Linhas 16060-16080: como cada byte do carácter é extraído de A 9% e transfor- 
mado numa cadeia binária, acaba por ser lido da esquerda para a direita, como uma 
cadeia. Assim, quando o valor da variável de ciclo J é 0, o dígito efectivamente a ser 
lido representa 128. Por isso, se o primeiro carácter de cadeia binária for 1, este será 
traduzido para 2.0, ou 1 em termos decimais. Se o último carácter da cadeia for 1, 
então será traduzido para 2.7, ou 128 em termos decimais. Desta forma, o número 
binário é virado «do inverso». 


Ensaio 
Execute o programa e chame o menu de edição. Prima «M» e, após uma pausa 


enquanto o carácter é copiado para o quadro, deverá vê-lo impresso em forma refle- 
xa. 


Módulo 3.1.11: Viragem do carácter 
Se se pensar no carácter a editar como estando impresso numa folha de plástico 


transparente, então, além de se poder apresentá-lo sob um certo ângulo, tudo o que 
se pode fazer com essa folha de plástico pode ser efectuado pela combinação do re- 
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flexo do carácter e/ou da sua viragem em 90 graus, uma ou mais vezes. O módulo 
corrente volta a utilizar o quadro T'%, embora desta vez para virar o carácter no 
quadrado de 8*8 em 90 graus, no sentido inverso ao dos ponteiros do relógio. 


Módulo 3.1.11: linhas 20000-20130 

2BODO REM JEDEIEIEDEIE IE TETE IE IE IE TETE IE IE IE IE IE IE IE IE IEIE IE IEEE 
220210 REM Turn 

2DB2B REM III IEIEIEIEIEIEIE IE IE TETE IE DE IE IE IE DEDE IE IE IE IEEE 
200320 FOR i=2 TO 7 

20040 b$=RIGHT$(BIN$(256+a%(1i)),8B) 
20050 FOR 5=0 TO 7 

20060 IF i=0 THEN tZ(5)=0 

20070 tA(J)=tA(I)+2%i 4VAL (MIDE CDE, j+1,1) 
) 

20082 NEXT 5 

20890 NEXT à 

22102 FOR i=0 TO 7 

20110 aZti)=títi) 

20128 NEXT à 

28130 ret=1:RETURN 


Comentário 


Linhas 20050-20090: este ciclo copia os dígitos binários de um dos oito números 
de A% para o quadro temporário T%. Note, no entanto, que enquanto os dígitos 
binários de cada número de A % são lidos da esquerda para a direita, são copiados 
para T'9% de cima para baixo — o primeiro dígito binário de cada número de A % vai 
para o primeiro elemento de T'%, o segundo dígito binário de cada número de A % 
para o segundo elemento de T'% e assim por diante. Desta forma, a coluna vertical 
do lado esquerdo de dígitos binários do carácter original torna-se na fiada superior 
(horizontal) de T9%, virando assim o carácter 90 graus. 


Linhas 20100-20120: o carácter reorganizado é lido novamente a partir de T% 
para A%, o quadro de trabalho principal. 


Ensaio 


Execute o programa, chame o menu de edição e depois prima «T». Após uma 
pausa, o carácter será reimpresso e virado 90 graus. Se premir «T» mais três vezes, o 
carácter deverá ser reposto na sua posição original. Experimente combinações de re- 
flexo, viragem e inversão, até estar familiarizado com os respectivos efeitos. 
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Módulo 3.1.12: Inserção na memória de um carácter editado 


Até aqui, foi-lhe possível manipular o carácter ampliado no quadrado de 8*8 
até que, eventualmente, ele deixasse de apresentar semelhanças com o padrão origi- 
nal. No entanto, nada disto teve qualquer influência na versão em tamanho normal 
do carácter que se encontra impresso à direita do quadrado de 8*8. As alterações por 
si efectuadas não foram ainda introduzidas na memória de caracteres e não o serão, 
até você estar satisfeito com aquilo que criou. No entanto, uma vez chegado àquilo 
que pretende, este módulo tornará o padrão dentro do quadrado parte do seu con- 
junto de caracteres feito por medida. 


Módulo 3.1.12: linhas 21000-21070 
21IDDO REMELEEHEEELEREREERERR ERRAR RE E 


21910 REM Piace In Memory 

212200 REMELEEEALEELELEEEEELL ERR RE SE 
21030 FOR i=0 TO 7 

21940 cílch,i)=aúti) 

21050 NEXT à 

21069 SYMBOL ch,saíi(D) paí(l) ,jaítD) ,aú(ão), 
aí(4) ,jaí(tõ) pai tá) aí (7) 

219720 ret=l: RETURN 


Comentário 


Linha 21040: o conteúdo de A% (o quadro em que são efectuadas todas as ma- 
nipulações sobre os dados do carácter) é copiado para a posição em C% correspon- 
dente ao carácter corrente. 


Linha 21060: os dados em A% são utilizados, juntamente com o poderoso co- 
mando SYMBOL, para atribuir novos valores aos oito bytes que registam a forma 
do carácter corrente. 


Ensaio 


Execute o programa e desloque o apontador de caracteres até ao carácter 65, 
que é o «A». Passe a modo de edição e vire o carácter uma vez. Prima agora «P» e 
observe o écran. O «A» à direita do quadrado de 8*8 é modificado, de forma a ficar 
de lado, pois o 464 foi recolher a informação de caracteres ao seu conjunto feito por 
medida. É conveniente lembrar, quando se editam caracteres, que, a menos que se 
pretendam letras de tipo determinado pelo utilizador, é geralmente aconselhável edi- 
tar apenas caracteres gráficos. Demasiadas alterações a letras e números podem re- 
sultar numa situação em que deixa de se perceber o que o programa nos diz! 
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Módulo 3.1.13: Armazenamento do conjunto de caracteres 


Após a edição do conjunto de caracteres, queremos agora poder guardá-lo, para 
que possa ser utilizado no futuro. Caso contrário, todo este exercício é inútil. Este 
módulo armazena em fita os caracteres feitos por medida. 


Módulo 3.1.13: linhas 22000-22110 

PDD REMETE TETE IE TETE IE IE IE IE IE IE IE IEILIEILICIE III III 
=2819 REM Save To Tape 

DPOD2D REM IES IE IEIE IE IEEE IEEE IE IE IE ICI III IEEE 
22050 LOCATE 1,24: DPENOUT “char data” 
22040 PRINT HO,fc 

22050 FOR i=fc TO 255 

22060 FOR 5j=2 TO 7 

=2070 PRINT H9,c%(i,õ) 

22088 NEXT 5 

22098 NEXT à 

221900 CLOSEOUT 

ESlid ret=1: RETURN 


Comentário 


Linhas 22040-22090: para poupar tempo no carregamento e salvaguarda, apenas 
são salvaguardados os caracteres redefinidos de FC para a frente. Não há vantagem 
em se esperar enquanto os dados dos 256 caracteres são salvaguardados, se apenas 
20, ou algo como isso, foram alterados. Os dados são salvaguardados sob a forma 
dos números armazenados em C%o. 


Ensaio 


Após a edição de alguns caracteres e sua colocação na memória, chame este mó- 
dulo para os salvaguardar em fita. A única verificação a fazer neste momento consis- 
te na execução do módulo sem qualquer espécie de erro. Depois da introdução do 
módulo seguinte, deverá poder voltar a carregar o conjunto de caracteres, para veri- 
ficar se este foi correctamente armazenado. 


Módulo 3.1.14: Recarregamento de um conjunto de caracteres 


Após o armazenamento do conjunto de caracteres em fita, este módulo executa 
a tarefa do recarregamento dos dados dos caracteres. É importante que você com- 
preenda o módulo, já que pode ser utilizado tal como se apresenta para recarregar 
um conjunto de caracteres para outros programas. Depois da nova concepção do seu 
conjunto de caracteres e do armazenamento respectivo em fita, tudo o que há a fazer 
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é incluir este módulo (devidamente renumerado, se necessário) no programa que vai 
utilizar os novos caracteres. Volte a passar os dados de caracteres e, aí está!, o con- 
junto de caracteres redesenhado está instalado. 


Módulo 3.1.14: linhas 23000-23170 

230DB REM Ie IEIEIEIEIEIEIEIEIE IE TED IE II II TESE ICI II IEEE 
23910 REM Load From Tape 

23020 REM SEIEIEIEIEIEIEIEIEIE IE IE IE IE IE IE IEIEIEIEIEIE III II 
2]050 LOCATE 1,24 

25040 OPENIN "char data” 

23050 INPUT H9,fc 

25060 FOR i=fc TO 255 

2:070 FOR 5=90 TO 7 

23080 INPUT H9,cA(Ci,õã) 

23090 NEXT 5 

23100 NEXT à 

231192 CLOSEIN 

2J120 SYMBOL AFTER fc 

23138 FOR i=fc TO 255 

23140 SYMBOL i,cítli,D),cáti,i),cíti,2),c 
ACi,S) ,cálti,çã)o,cítli,5),cíti 6) ,cútlis7?) 
23150 NEXT à 

235160 done=DB:ret=i 

23170 RETURN 


Comentário 


Linhas 23040-23110: o carácter de partida é lido a partir da fita e, uma vez que 
pode não corresponder ao valor corrente, então os dados em fita são lidos novamen- 
te para C%, da posição FC para a frente. 


Linhas 23120-23150: com os dados novamente em C%, SYMBOL AFTER é uti- 
lizado para redifinir o conjunto de caracteres. Normalmente, isto poderia ser feito 
durante o ciclo de carregamento dos dados, sendo cada carácter redefinido depois de 
os seus oito bytes terem sido recolhidos. Na prática, devido ao que parece ser uma 
deficiência de funcionamento da ROM do 464, o comando SYMBOL AFTER apa- 
rentemente não é reconhecido enquanto um ficheiro está aberto para o gravador de 
dados. Valeria a pena verificar se esta deficiência de funcionamento está presente na 
sua máquina. 


Ensaio 


Deverá agora poder recarregar o conjunto de caracteres que salvaguardou (SA- 
VE) como parte do ensaio ao módulo anterior, premindo «L» em modo de edição de 
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caracteres. Antes de recarregar o que acabou de salvaguardar, certifique-se de que 
regressou ao conjunto de caracteres normal (inédito), ou será impossível dizer se fo- 
ram carregados diferentes caracteres a partir da fita. 


Módulo 3.1.15: Restauração do conjunto de caracteres 


É muito possível que você, em qualquer ponto, decida que foi longe de mais nas 
suas redefinições de caracteres, desejando restaurar o conjunto de caracteres ao seu 
estado original. Pode fazê-lo inserindo «X», no menu principal. A execução é, en- 
tão, enviada para o módulo de inicialização, para que o carácter de partida seja rede- 
finido. Se desejar reenviar o 464 para a condição de ausência, o primeiro carácter de- 
verá ser 240. 


Módulo 3.1.15: linhas 24000-24040 


PIADDOO REM IE IEIEIEIEIEIEIEIEDE IE IE DE TETE DEDE IE IDE IE TESE IEEE IE E 


242010 REM Normalise Character Set 
24020 REM 63333 IEIEIEIEIE IEEE IE IE IEEE DEIEIE IE IICT EEE 


24030 GOSUE 11000 
240940 done=D:ret=1:RETURN 


Ensaio 


Execute o programa e altere um carácter, armazenando a definição em memó- 
ria. Prima agora «E» e verificará que o carácter foi restaurado ao seu estado origi- 
nal. 


Módulo 3.1.16: Finalização do programa 


O programa termina, se se premir «E» a partir do menu principal, sem restaurar 
o conjunto de caracteres original. 


Módulo 3.1.16: linhas 25000-25030 


ZITDO REM est 36 IE IEEE IE IDE TED IE IEIEIE IE IE IEIEIE IE TETE IEEE EH 
29010 REM End 

LIDLED REM IICA IE IEEE IE IE IEEE TETE IE IE TE DEISE III EEE 
23030 ret=1: RETURN 


Ensaio 
Altere um carácter, coloque a redefinição em memória e finalize o programa 


com «X». Quaisquer alterações que tenha feito deverão ainda fazer parte do conjun- 
to de caracteres. 
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PROGRAMA 3.2: DESENHADOR 
Função do programa 


Sem dúvida que todos já vimos as impressionantes visualizações criadas por 
aquilo que se designa «software CAD» (computer-aided design, ou seja, desenho as- 
sistido por computador). Com toques lestos, o engenheiro acrescenta linhas e formas 
a desenhos complexos, ou apaga os já existentes. De uma forma limitada, o «Dese- 
nhador» pretende mimar esse tipo de capacidade. Ainda que não tão sofisticado, ob- 
viamente, permitir-lhe-á criar desenhos complexos, que são muito maiores do que 
um só écran, utilizando o écran de televisão como uma janela móvel, para examinar 
partes ou encolher toda a área, de forma a examiná-la na sua globalidade. Linhas, 
círculos e caixas podem ser adicionados à vontade ou apagados, e todo o desenho ar- 
mazenado em fita para utilização posterior. 

Novos conceitos apresentados neste programa incluem: 


1) Um cursor intermitente definido pelo utilizador, em alta resolução. 
2) Armazenamento de desenhos em fita. 
3) Definição e desenho de formas geométricas. 


Módulo 3.2.1: Inicialização 
Trata-se de um módulo de inicialização padrão, que estabelece cores para o 


écran, duas janelas e uma gama de variáveis sobre a qual se falará no decurso do co- 
mentário ao programa. 


Fig. 3.3 — Impressão de écran no «Desenhador» 


Módulo 3.2.1: linhas 11000-11250 


11000 REP SE SEE IEIETEIEIE TETE IEEE TE IEEE EEE ERIK 


iligdgig REM Initialise 
iiZOD REMESSA 


1Íigzo MODE 1 
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11040 BORDER 26 

11050 INK 0,0 

1iBdéB INK 1,26 

11070 INK 2,18 

iigBo INK 3,18 

11092 PAPER 1:PEN Q 

11iida CLS 

11110 WINDOW 27,40,1,725 

11120 ORIGIN 200,200,0,398,398,8 

1iisz CL6 

11140 WINDOW &1,27,40,25,25:PAFER &1,1:P 
EN H1,0 

iiisg over &=CHRE (25) +CHRE(CI) 

11160 normal &=CHR$ (23) +CHRE (MD) 

11170 menut="" 

11188 FOR 1i=240 TO 247: menug=menut+CHRE ( 
1):NEXT à 

11190 menuft=menut+" 12sclb"+CHR$E(IZ)+H"owt 
dx! 

11200 unit=i 

11210 pix=2 

11220 left=-100:right=99 

11238 top=99:bottom=-iD8 

11240 DIM aí(iBD0D,4) x (1),yct) 

11259 RETURN 


Módulo 3.2.2: Dois cursores de desenho 


Em qualquer programa de desenho, uma das primeiras necessidades é que o uti- 
lizador saiba onde se encontra a posição de desenho corrente. Isto é conseguido, re- 
gra geral, através de um qualquer tipo de cursor, que marca a posição corrente no 
écran. Este programa utiliza dois cursores para definir, por exemplo, os dois extre- 
mos de uma linha a ser desenhada, os dois cantos opostos de uma caixa, e assim por 
diante. Ambos os cursores podem ser deslocados sobre o desenho utilizando as teclas 


de controlo de cursor, sem que tal afecte o conteúdo do écran. 


Módulo 3.2.2: linhas 12000-13080 

12DDB REM III IEIEIEIEIE IE IE IE IEIEIEIE EITA EE 
12010 REM Cursor 1 

12820 REMATE IEIEIEIE IE IEIEIE TETE IEICIEIE EI RA RA 
12930 PRINT over £ 

12040 PLOT x(B)*pix-l6,y(D) *pix,2 

12050 DRAWR 32,0 

12060 PLOT =(D)*pix,y(M) *xpix-l6ó 
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12070 DRAWR 0,32 

122089 RETURN 

13900 REM 3333 3EIEIEDEIE IEEE IE IE DEDE IE IE IE IE IEEE IE EE E 
135910 REM Cursor 2 

13902090 REM 333333 IEDE DEDE DEDE IEEE IEEE IEEE IE EIA 
13030 PRINT over 

1359040 PLOT x(1)*pix-l6,y(1)*piz-l6,? 
13050 DRAWR 32,32 

139060 FLOT x(i)*xpix-lá,yti)xpix+liá 
13970 DRAWR 32,-32 

1Z:0892 RETURN 


Comentário 


Linhas 12030 e 13030: OVERS$ foi definido no módulo de inicialização como 
sendo CHR$(23) mais CHR$(1). CHR$(23) é um carácter de controlo, um carácter 
que não imprime nada no écran, mas que tem efeito sobre o modo como o 464 fun- 
ciona. 

Neste caso particular, o efeito do carácter é estabelecer o que é conhecido por 
uma característica «OVER» de desenho no écran, ou, de uma forma mais técnica, 
estabelecer um XOR (modo eXclusivo OR). Significa isto que, o que quer que se es- 
creva no écran durante o funcionamento da característica OVER, fará passar ao es- 
tado oposto quaisquer pixels que aquela encontre — se os pixels constituíam uma cor 
de primeiro plano, serão mudados para cor de fundo, e se eram uma cor de fundo, 
passarão a cor de primeiro plano. A vantagem disto é que, se a mesma forma for de- 
senhada duas vezes com OVER a funcionar, o écran ficará exactamente na condição 
inicial. Por outras palavras, pode ser desenhado um cursor, sendo depois redesenha- 
do para se apagar, sem que isso tenha o mais pequeno efeito a longo prazo sobre tu- 
do o resto que se encontra no écran. 


Linhas 12040-12070 e 13040-13070: são desenhados os cursores, sendo um de- 
les uma cruz formada por um traço vertical e horizontal, e o outro uma cruz forma- 
da por dois traços em diagonal. A posição da cruz é determinada, em ambos os ca- 
sos, pelos quadros bielementares X e Y, juntamente com o valor da variável PIX. A 
razão por que PIX é necessária é que, numa fase posterior do programa, verificará 
que o desenho pode ser observado em diferentes escalas, pelo que uma distância no 
desenho pode variar, quando expressa no écran — PIX assegura que o cursor seja 
correctamente posicionado para a escala corrente de observação. 


Módulo 3.2.3: Selecção do cursor 

Com dois cursores, obviamente que será necessário poder seleccionar-se qual 
deles será endereçado. O módulo corrente é chamado a partir do menu principal, que 
introduziremos em breve, através da alteração do valor da variável CN (Cursor 


Number, ou seja, número de cursor). 
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Módulo 3.2.3: linhas 23000-24040 

23DDD REMAKE ERREI EE EE 
2Z210 REM Select Cursor 1 

DED2B REM SEE IEIE IEEE TETE IE IEEE EEE III IEEE IEEE E 
2Z030 cn=8 

=3040 RETURN 

24000 REMKX ERREI RA 
24210 REM Select Cursor 2 

ABA REM EI IMEIEIEIE II EEE REI EIS E 
24030 cn=i 

24042 RETURN 


Módulo 3.2.4: Deslocação dos cursores 


Finalmente, precisamos poder deslocar os cursores. Tal é conseguido através 
das teclas cursoras, em que as teclas cursoras não deslocadas (sem shift) movem o 
cursor uma unidade de écran na direcção apropriada e as teclas deslocadas movem o 
cursor dezasseis unidades. Cada uma das sub-rotinas contidas no módulo é chamada 
separadamente a partir do menu, pela respectiva tecla apropriada. Isto torna o pro- 
grama mais longo, mas acelera a movimentação do cursor, se comparado com uma 
sub-rotina cheia de instruções IF para tratar das teclas cursoras. 


Módulo 3.2.4: linhas 15000-22040 


15000 REM 3% 236365 3EIE DEDE DEE IE IE IE IE IEEE IEEE IE IEEE DEE E 
1590190 REM Cursor Up 1 

13920 REM t+ 563656 3E3E SEDE IEEE IE IE IE IEEE IEEE E IE IE IEEE E TESE 
15030 y(cn)=y(cn)+unit 

159240 RETURN 

16000 REM 365636563 23 SETE DE IE IE IEIE IE IE ICI ALICIA EE A 
16019 REM Cursor Down 1 

16B2D REM SIE IEJE SE IE IEL IE IE IEEE DE IEEE IE IE ICI IEEE IE E 
16030 y(cn)=y(cn)-unit. 

160240 RETURN 

17000 REM e 3€ 56 363636333 E DEDE DEI DEI IE DEDE DEE TE IE IEIE IEEE 
17010 REM Cursor Left 1 

17020 REMEREEEEREEEEREREEEEE RR AR 
17030 =» (cn)=x (cn)-unit 

17040 RETURN 

1ÍBDDD REM SME IEIE TETE IE IE IE IEIEIEIEIE IE IEEE TETE ERES E 
18912 REM Cursor Right 1 

12B2D REM IEEE IEEE IEEE IE TE IEF III IE IEEE ICI E RE 
19950 » (cn)== (cn)+unit 

18940 RETURN 

19900 REM IEEE DEE IEIE IE IE IE IEEE IEEE EEE E 
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199018 REM Cursor Up 16 

19920 REM JIJ IEIEIEE EE ERREI A 
19030 y(cn)=y (cn) +tunit*ló 

19240 RETURN 

20DD0D REM 263 DE SEDE IE DEDE IE IE DE IEEE IE IE IE IE IE IE IEEE IE E 
20919 REM Cursor Down l6 

20020 REM 35363 3EJEIEIEIE SETE IEEE DEI 
20030 y(cn)=y(cn)-unit+*i6 

209240 RETURN 

21000 REM 25 IEEE IE DEE IEEE IEEE EEE IEEE IE IE IEEE 
212010 REM Cursor Left 16 

21020 REM IES DEDE IEA DEDE IE DEDE DE IE IE IE IE TESE IE IE IEEE E DEE 
219530 x (cn)=x (cn) -unit*xi6 

21240 RETURN 

L2DOD REM Je JEI IEEE DEDE IE IE IE IE IE IE IE IE IE DE IE IE IE IE IREI ARS E 
22018 REM Cursor Right iéá 

22200 REMELEREEREHEEREKEEEEEEEERRER ERR 
L20]8 x tcn)=x (cn) +unit+xióá 

:22490 RETURN 


Módulo 3.2.5: Introdução de comandos 


Estando dotados de dois cursores, bem como da capacidade para os movi- 
mentar, viramo-nos para o módulo que confere trabalho entre as várias partes do 
programa, ao ser premida uma tecla. O seu correcto funcionamento apenas pode ser 
ensaiado quando lhe for adicionado o módulo subsequente, o pequeno módulo de 
controlo. A maior parte dos comandos únicos mencionados no comentário não se 
tornarão operativos, obviamente, até que módulos posteriores lhes sejam acrescenta- 
dos. 


Módulo 3.2.5: linhas 14000-14440 

142007 REI IEIETEDEIEDEIEIE DE IE DE DEIE DE IE IE DE IE IE IE IE TETE EEE 
14810 REM Edit Mode 

14020 REM SEIEIEIEIEIEDEIE DE TETE E IE IE E IE IEEE DE IEEE 
140508 CLS 

14240 FRINT º EDIT MODE": PRINT 

14050 PRINT "Xi: 

14060 FRINT “yi:":FRINT 

14970 PRINT "X2:" 

14289 PRINT "Y2:º:FRINT 

14094 PRINT “Scale:"zunit 

14100 PRINT "Items:";item: PRINT 

14110 PRINT "“1º Cursor 1º 

14128 PRINT “'2" Cursor 2º 
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14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14249 
14250 
147260 
14270 
14280 
14298 
14300 
14310 
14320 
1433 

14340 
143598 
14360 
14370 
14z80 


PRINT "*S' Shape” 

PRINT "'“C' Circle" 

PRINT "“Lº Line” 

PRINT "“B'º Box" 

PRINT "“":CHR$(I):;CHRECIZD) 0" Fix" 


PRINT “'E' Erase” 

PRINT "CW" Window" 

FRINT “"'T' Save" 

PRINT "'“D' Del Mode" 

PRINT "Nº End" 

t=0:WHILE t<io 

GOSUE 12000 

GOSUB 12000 

LOCATE 4,3:FRINT zx(<M);TARCIS) 
LOCATE 4,4:FRINT y(B); TAR(IA) 
LOCATE 4,6:PRINT x(1):TAR(14) 
LOCATE 4,7:PRINT y(1); TAR(1I4) 
t=9:WHILE t=0 

t$="":WHILE t$="" 

t$=LOWERS (INKEEY$) 

WEND 

t=INSTR (menut,t$) 

WEND 

GOSUB 12000 

GOSUE 130008 

ON t GOSUE 15080, 16000, 17000, 1 8200 


| 19009, 20000, 21 DUO, 22000, 23000, 21000, 250 
20, 26000, 27000, 28000, 29000, Z0B0D, Z 1020, 


2200 

145990 IF x(cn)>right THEN x(cn)=right 
14409 IF x(cn)c<left THEN x (cn)=left 
14410 IF yíccn>>top THEN y(cn)=top 

14420 IF yt(cn)<bottom THEN y(cn)=bottom 
14430 WEND 

14440 RETURN 

Comentário 


Linhas 14030 e 14290: o menu do programa, que, devido à forma como o 
écran foi estabelecido na inicialização, é impresso na parte direita do écran — a es- 
querda e centro do écran são reservados para o próprio desenho. Para além do me- 
nu, os cursores são desenhados sobre o desenho principal e a sua localização listada. 
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Linhas 14300-14350: estes ciclos encaixados esperam que seja premida uma te- 
cla, comparando-a depois com o MENUS estabelecido no módulo de inicialização e 
produzindo um valor para o comando ON... GOSUB, na linha 14380. 


Linhas 14390-14420: se, como resultado de um comando de movimentação do 
cursor, este se tenha deslocado para além dos limites da janela corrente sobre o dese- 
nho, registada nas variáveis BOTTOM, TOP, LEFT e RIGHT, as coordenadas do 
cursor são corrigidas por estas linhas. 


Módulo 3.2.6: O módulo de controlo 


O pequeno módulo de controlo deve ser introduzido nesta altura, para que a 
função de movimentação do cursor possa ser ensaiada, bem como módulos posterio- 
res, à medida que forem entrando. Note que o módulo tem em consideração a recor- 
dação de dados a partir da fita — isto será amplamente discutido quando os módu- 
los relevantes forem introduzidos. 


Módulo 3.2.6: linhas 10000-10100 

1IDODA REM IEEE IEIE IE IE IE DE IE DEI IE DEE IDE DETECTED IEEE IE 
iZ21B REM Control 

IDBLD REM III IEIEIEIEDEIE IE IE DEDE IE DE IE IE IE IE IE ICI IEEE IEA 
IGD3A INPUT "Load from tape (y/n)"s:gê 
12040 GOSUB 11800 

iBBsA IF LOWER$(qg)="y" THEN GOSUR Z3800 
iBHeM wHILE 1 

12070 GOSUE 14000 

12090 IF t=20 THEN MODE 1:CLS: END 

1ÍGN9B GOSUB 49000 

iZiBD WEND 


Ensaio 


Execute o programa e deverá verificar que consegue movimentar qualquer dos 
cursores pelo écran através das teclas de controlo dos cursores. Nenhuma das outras 
funções do programa estarão ainda disponíveis. 


Módulo 3.2.7: Desenho de uma linha 


Segue-se agora uma série de três módulos, que fazem o trabalho pesado do pro- 
grama desenhando, respectivamente, linhas, caixas e polígonos (incluindo círculos). 
Não poderá utilizá-los para isto imediatamente, visto que estes módulos não são cha- 
mados directamente do menu, mas por outros módulos que têm a tarefa de dirigir o 
trabalho de desenho/apagamento, e assim por diante. O módulo corrente apenas de- 
senha uma linha a partir da posição do cursor 2 até à posição do cursor 1. 
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Módulo 3.2.7: linhas 37000-37050 


STODO REM IES IEIEIE IEEE IEEE E EEE EEE 
2/7010 REM Draw Line 

S7D2A REM SE3E SEDE IE IE IEEE TETE IE IEEE ICI EEE EI IEEE 
37058 PLOT x2*pix,y2*pix,c 

70420 DRAW xixpix,yix*pix 

=:7050 RETURN 


Ensaio 


Execute o programa para montar o écran e depois pare, com « N ». Escreva: 
C=2:X1=50:Y1=50:GOTO 37000[ENTER] 


e deverá ver uma linha desenhada desde o centro da zona negra, em diagonal, para 
cima e para a direita. 


Módulo 3.2.8: Desenho de um círculo ou polígono 


Trata-se de um módulo de aplicação geral, que desenha entre pontos em torno 
de um círculo. O esquema do desenho aparecerá, ou como um círculo, ou como um 
polígono regular, dependendo do número de lados especificado — se forem usados 
três pontos, a forma será a de um triângulo. 


Módulo 3.2.8: linhas 38000-38140 


IBDDD REMEREREEEEELEREEEELERRERE RI 
38910 REM Draw Folygon 

FBD2B REM IMITA RICE REI IEEE E 
SBDID r=SOR((xi-x2)*(xl-=xD+(yl-y2)*(y1- 
y2)) 

“8940 z2=CINT(8*LOG(r/unit)) 

“8858 IF NOT(zi=2 OR z1i>z2) THEN 22=21 
J8060 IF xi=x2 THEN a=PI/2*SGN(yl-y2) 
8970 IF xi<>x2 THEN a=ATN((yl-y2)/(ut—u 
22) 

“8080 IF xi<x2 THEN a=a+PI 

38098 PLOT (x2+r*COS(a)) «pix, (y2+r*«SIN(a 
))*pix,c 

38100 FOR s=1 TO 22 

SB110 al=a+2+*FI*5/22 

381280 DRAW (x2+r*COS (al)) xpix, (v2+r*SIN( 
ai))*pix 

39130 NEXT s 

:“B140 RETURN 
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Comentário 
Linha 38030: é a distância em diagonal entre os dois cursores. 


Linhas 38040-38050: Z2 será o número de pontos a traçar (plot) em torno da es- 
trutura circular. A expressão da linha 38040 fornece pontos suficientes para dar um 
círculo aceitável — não há vantagem em se ir demasiado longe na definição do nú- 
mero de pontos a utilizar, já que a melhoria é dificilmente notada e o processo pode 
tornar-se tortuosamente lento. Quando o utilizador tiver especificado outra forma 
que não um círculo, a linha 38050 estabelece o número de pontos de acordo com os 
especificados pelo utilizador, desde que este número não seja maior do que o neces- 
sário para desenhar um círculo. 


Linhas 38060-38080: estas três linhas calculam o ângulo do cursor 1, em relação 
ao do cursor 2. 


Linha 38090: o primeiro ponto em torno do círculo, que deverá ser tudo menos 
idêntico à posição do cursor 2. Deverá reconhecer a equação do programa « Anareló- 
gio», no primeiro capítulo. 


Linhas 38100-38130: este ciclo calcula a posição de Z2 pontos em torno da cir- 
cunferência do círculo, desenhando de um para outro como calculado. Uma vez 
mais, a fórmula é a mesma que foi explicada no programa «Anarelógio». 


Ensaio 


Tantas variáveis têm de ser estabelecidas para ensaiar este módulo e o seguinte, 
que é melhor esperar até que tenham sido acrescentados mais módulos, de modo a 
incluí-los na sequência principal do programa. 


Módulo 3.2.9: Desenho de uma caixa 


A forma final que o programa é capaz de desenhar é um simples rectângulo, 
cujos cantos opostos se encontram nos pontos 1 e 2. Este módulo é ligeiramente mais 
complexo do que os anteriores, já que não tem qualquer comando incluído para a 
forma e, para além disso, incluímos uma provisão para que ela seja rodada. 


Módulo 3.2.9: linhas 36000-36210 


FONDO REM ESSE SETE SE SEIEIE IE DE IEEE IE SETE IE IEEE IEEE IEEE 
So60iB REM Draw Box 

FODA REMIEM IEIEIEIEIEIEIE IE DE AEIEIEIE III IEEE IEEE IEEE 
36030 a=-zi/i8000 

J6040 cs=U0S (a) 

36254 sn=SIN(a) 
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36060 u=(xl+x2)/2 

56070 y=(yl+y2)/2 

56280 rxl=x+(xli-x)*cs+(yi>-y) *5n 
:6090 ryi=y+tyi-y)scs—(xi-x) *5n 
6100 ruxl=x+(x2-x) *405+(yi-y) *sn 
Z6110 ry2=y+(yi-y)ucs—(x2-*) *5n 
S6i2B ruJ=x+ (x2-x) 4cs+ (y2>y) *5n 
S6135B ryz=y+ (yl-y) tcs— (x2-x) 45n 
36140 rxd=x+(xi-x)xcs+(y2-y)*sn 
36150 ryã=y+ (y2-y)xcs— (x 1-x) *sn 
36160 PLOT rxi*xpix,rylepix,o 
3S6178 DRAW rx2*pix,ryZ*pix 
6180 DRAW rxZxpix,ryZ*pix 
=6198 DRAW rx4xpix,rvãxpix 
36200 DRAW rxlepix,ryle*pix 
36219 RETURN 


Comentário 


Linhas 36030-36050: a variável A contém o ângulo, fornecido pelo utilizador, 
segundo o qual a caixa deve ser rodada. CS e SN serão utilizados para encurtar as 
fórmulas do movimento dos cantos da caixa ao ser rodada. 


Linhas 36080-36150: as fórmulas para a rotatividade dos pontos são as seguin- 
tes: 


X2 = XO + XD* COS ANGLE + YD * SIN ANGLE 
Y2 = YO + YD*COS ANGLE — XD*SIN ANGLE 
X2 e Y2 são as coordenadas X e Y que resultam da rotação do ponto X, Y. 
X0 e Y0 são as coordenadas em torno das quais se dá a rotação do ponto. 
XD e YD são as distâncias de X e Y em relação a XO e Y0, respectivamente. 
ANGLE é o ângulo segundo o qual é rodado o ponto definido por X e Y. 


O rectângulo básico, por rodar, terá cantos de X1/Y1, X2/Y1, X2/Y2 e X1/Y2. 
Observando as linhas e comparando-as com as fórmulas acima, deverá ver que elas 
fornecem as coordenadas rodadas para os quatro pontos angulares. 


Módulo 3.2.10: Atribuição de trabalho entre os módulos de desenho 


Este curto módulo é um dos necessários à inclusão dos módulos de desenho no 
que se segue. A sua utilidade será explicada quando observarmos o próximo módulo. 
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250DD REM DE SEE IE IEEE EEE IE IE IEICIE IEEE II E 
250]0 z=Q:e=0Q:WHILE z<Z OR 2252767 
[5244 IF e=1 THEN «$&="*OUT OF RANGE=":GO 
SUE 24090 
[5050 INPUT Hi,"Sides";z:PRINT H1 
25060 e=i:WEND 
23070 FRINT overg:c=2 
25090 IF temp=i THEN GOSUR J5000 
2090 zi=z:xl==(D:vi=y (BM ixD=n (I)ivo=y tl 
W 
=Si2m GOSUSE oa 
251108 temp=i 
csica RETURN 
DEBE REMELEERREREERERER EEE ER III 
2eB1A REM Circle 
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à utilização dos verdadeiros mó- 


(tais como «quantos lados» ou 


lão tenha sido confirmada pelo 
ualdade da variável TEMP a 1. 
e Y2, as posições dos cursores. 


imostrar que foi desenhada uma 
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36060 
36270 
«6280 
6090 
J6100 
F6118 
FS6129 
36136 
361408 
Z6ISA 
36160 
36178 
36150 
361980 

6200 
Z6219 


H=(xl+x2)/2 
y=(yl+y2)/2 
rxl=x+(xl—x) 
ryl=y+tyi—y) 
rx2=x+(x2-x) 
rvZ=y+(yi—y) 
rx J=x+ (ix2—x) 
ryd=y+ (yl—y) 
rxd=x+ (xi-x) 
ry&=y+ (y2-y) 
PLOT rxi*pix 


DRAW ru2x*pix 


DRAW rxZxpix 
DRAW rx4xpix 
DRAW rxlxpix 
RETURN 


Comentário 


Linhas 36030-36050: a va 
segundo o qual a caixa deve s 
fórmulas do movimento dos c 


Linhas 36080-36150: as fc 


tes: 


X2 = XO + XD* COS ANGL 
Y2=YO + YD*COSANGCL 


As Publicações e as Livrarias 
EUROPA-AMÉRICA 


Convidan-no a juntar-se 
aquele grupo de leitores exigentes 
para quem um livro, 

alem de uma companhia au gradaivel, 
é uma companhia util. 
Assim teremos muito gosto 
em passar a enviar Lhe regularmente, 
informações sobre os livros 
que publicamos. 


o Editor 


Nome: 
Profissão: 
Morada: 
Cód. Postal: 


Localidade: 


Encontrei este postal no livro; 


Que adquiri numa livraria Que encomendei pelo correio 


NOS EDITAMOS O LIVRO QUE VOCÊ PROCURA! 
IMPORTANTE: Se desejar alguns livros de nossa edição, também poderá usar 


este postal. Bastara preencher o espaço que se segue. Todas as encomendas são 
confidenciais. 


Referência Titulo e Autor 


X2 e Y2 são as coordenadas X e Y que resultam da rotação do ponto X, Y. 
X0O e YO são as coordenadas em torno das quais se dá a rotação do ponto. 
XD e YD são as distâncias de X e Y em relação a XO e Y0, respectivamente. 
ANGLE é o ângulo segundo o qual é rodado o ponto definido por X e Y. 


O rectângulo básico, por rodar, terá cantos de X1/Y1, X2/Y1, X2/Y2e X1/Y2. 
Observando as linhas e comparando-as com as fórmulas acima, deverá ver que elas 
fornecem as coordenadas rodadas para os quatro pontos angulares. 


Módulo 3.2.10: Atribuição de trabalho entre os módulos de desenho 


Este curto módulo é um dos necessários à inclusão dos módulos de desenho no 
que se segue. A sua utilidade será explicada quando observarmos o próximo módulo. 
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Módulo 3.2.10: linhas 35000-35060 


J5200 
35010 
35020 
S35038 
35940 
35050 


“5060 


REM SE SE SE SE SE DEISE IE IE IE DEDE IE DEDE IE TESE IE IEEE SEE EE E 
REM Global Draw 

REI SE SE IE E E IE SE SEE DEI DE DEDE TE IE TE DE IE AE IE IEEE E E E 
IF z1i«1 THEN GOSUR 36000 

IF zi=1 THEN GOSUR =7090 

IF z1i>1 THEN GOSUR Z99000 

RETURN 


Módulo 3.2.11: Controlo dos comandos de desenho 


Chegamos agora às três sub-rotinas que traduzem a única tecla premida a partir 
do módulo do menu para os parâmetros necessários à utilização dos verdadeiros mó- 


dulos de 


desenho. 


Cada um dos módulos tem as seguintes funções: 


1) Pedir, se necessário, mais informações, tais como «quantos lados» ou 
«grau de rotação». 

2) Estabelecer a característica OVER, imprimindo OVERS. 

3) Apagar qualquer forma existente que não tenha sido confirmada pelo 
utilizador, tal como está indicado na igualdade da variável TEMP a 1. 

4) Estabelecer as variáveis Z1, X1, Y1, X2 e Y2, as posições dos cursores. 

5) Chamar os módulos de desenho relevantes. 

6) Estabelecer a variável TEMP de forma a mostrar que foi desenhada uma 
forma ainda não confirmada. 


Módulo 3.2.11: linhas 25000-28110 


CEODA RENMERKEFEREKAEREERAREEEREEE REA 

23012 REM Shape 

25000 REM SS SEE IEEE IEEE SEE DEE E IEEE IE RETEIEIEEE 

ZSQIM z=Q:e=0: WHILE z<Z OR 2232767 

:5240 IF e=1 THEN x$£="*OUT OF RANGE*":GD 
SUE Z40DB0 

505 INPUT HKi,"Sides";z:PRINT Hl 

23060 e=i:WEND 

2270 FRINT overf:c=2 

258090 IF temp=1 THEN GOSUR Z5000 

cI09D zil=z:ixl==(0):yi=ytQDxd=n (1)ive=yl 
1 

2512 GOUSUE ToBMA 

25118 temp=i 

coiza RETURN 

CEDO REMEREEREEREEREREEERREE ERR RE 

:veB1Q REM Circle 
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REMETE EE EI HE 
PRINT overf:c=2 

IF temp=i THEN GOSUR J5800 
zl=Dixli="(0):yi=y (0) :u2=x (1): v2=y( 


GOSUE JBe00 

temp=i 

RETURN 
REMERELEREEEREERERRREEEREE EE 
REM Line 

REIS RE SEDE IE IE TETE IE IEEE AE ICSI IE III TEIA ARE 
FRINT overf:c=2 

IF temp=i THEN GOSUE Z5200 
zl=l:xi=7(0):yl=y(D):uxl=u (1): y2=y( 


GOSUE ]Z7000 

temp=i 

RETURN 

REMEREREEEEELEL ELLER RE 
REM Box 

REM 6 36 SE E 6 IE IE IEEE TE IE EE IE IE IEEE ICI IICA E E EE 
INPUT Hi,"Rotation";a:PRINT &1 
a=a-180xINT(a/1808) 
z=-CINT(a/190xFPI*1 0000) 

FRINT overg:c=2 

IF temp=1i THEN GOSUB =5090 


Czl=z:xl=x (0) :yl=y(D):x2=u (1): yv2=vy( 


GOSUR Z6900 
temp=i 
RETURN 


Comentário 


Em vez de um comentário a cada sub-rotina, serão analisados com brevidade os 
pontos principais de uma delas, pontos esses que se aplicam a todas as sub-rotinas. 


Linhas 25030-25060: é a informação suplementar requerida, se tiver de ser dese- 


nhada uma forma, ou seja, a quantidade de lados. 


Linha 25080: se a variável TEMP estiver estabelecida, então acabou de ser dese- 
nhada uma forma e não foi confirmada (abordaremos a confirmação dentro em 
pouco). Antes de desenhar a forma corrente, o módulo da linha 35000 é utilizado pa- 
ra voltar a chamar o módulo de desenho relevante. Uma vez que OVER se encontra 
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estabelecido, o módulo desenhará sobre a forma anterior, apagando-a. Significa isto 
que, se o utilizador pretende desenhar uma forma num desenho complexo e ela não 
está perfeitamente certa (não se enquadra devidamente), um ou outro dos cursores 
pode ser deslocado, utilizando a forma insatisfatória como guia, e desenhada a for- 
ma novamente, apagando automaticamente a primeira versão. 


Linha 25090: são estabelecidas as variáveis. 
Ensaio 


Deverá agora poder executar o programa e desenhar formas, embora não possa 
ainda confirmá-las nem torná-las parte integrante do desenho — cada forma dese- 
nhada apagará a anterior. 


Módulo 3.2.12: Gravação de um desenho 


Um programa como este é de pouca utilidade para mais do que alguns momen- 
tos passageiros de divertimento, a menos que o desenho em que se trabalhe possa ser 
gravado, de alguma forma. No nosso caso, a gravação do desenho num quadro 
permitir-nos-á, mais tarde, tanto o armazenamento dos dados em fita, como o apa- 
gamento de linhas individuais. Linhas e formas são gravadas chamando este módu- 
lo, à medida que vão sendo introduzidas. Para além disto, o módulo desenha a for- 
ma em permanência, de modo que ela não será apagada quando a forma seguinte for 
desenhada. O módulo é chamado premindo ENTER no menu principal. 


Módulo 3.2.12: linhas 29000-29150 

29000 REMEEEEELEREREEREEERESERER RR E 
º92iZ REM Fix 

Z9DDD REM MEIEILILA IEEE ER RE 
298358 IF temp=ô THEN RETURN 

9040 IF item=i98i THEN u$="*NO MORE ROO 
Mae": GOSUR 34920: RETURN 

29250 FRINT normalf:c=i 

29250 GOSUE 5000 

:9870 al(titem,2)=zi 

29800 aúitlitem,1i)=ul 

9290 aútitem,2)=yi 

=9iMA aúlitem,5)=u2 

29ilQ aúlitem,ã)=y? 

“9120 temp=0 

29130 item=itemti 

29140 LOCATE 7, 1iB:FPRINT item; TARCIS 
29152 RETURN 
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Comentário 
Linha 29030: se TEMP não for igual a 1, não haverá forma para registar. 


Linha 29050-29060: NORMALS, que foi definido no módulo de inicialização, 
desliga OVER, de modo que tudo o que for desenhado, sê-lo-á de forma normal. O 
módulo da linha 35000 é então chamado para escolher entre os vários módulos de 
desenho. 


Linhas 29070-29130: as variáveis necessárias ao desenho da forma são armaze- 
nadas no quadro A%. TEMP é colocado em 0, para indicar que não existe no écran 
qualquer forma por confirmar, e a variável ITEM é incrementada, para mostrar que 
foi acrescentada outra forma ao desenho. 


Módulo 3.2.13: Apagamento de uma forma 


Trata-se de um módulo simples, para apagamento de uma forma não confirma- 
da, do mesmo modo como quando é desenhada uma nova forma. 


Módulo 3.2.13: linhas 30000-30070 

JADBDA REM ed 36 SE SEIO DE DEI IE DE TED IEI IEEE EI E RE 
352010 REM Erase 

FSUDEOD REM 36 DEDE IE TE IEEE IE IE DE IE DE IE IE IEEE ILE IEEE EE 
SOMZA IF temp=92 THEN RETURN 

“0240 FRINT overg:c=? 

“0050 GOSUR J5000 

Z0260D temp=0 

“2070 RETURN 


Ensaio 


Deverá agora poder apagar uma forma não confirmada premindo «E», no menu. 


Módulo 3.2.14: Reimpressão de um desenho 


Depois de nos termos proporcionado a possibilidade de registar uma forma num 
quadro, deparamos agora com a questão da reimpressão da totalidade do desenho a 
partir dos dados armazenados no quadro, colocando-os novamente no écran. 


Módulo 3.2.14: linhas 39000-39130 
=9D0D REM JJ EIEIE IE TETE DE DEI DEE TETE IE IE IE DEI E E E 


19010 REM Redraw 
ISPBEDB REM IE IEIE IE ETEIEIE IE IE IE E DEDE DE IE E DE DE IE IE EEE DE IEEE 


39030 IF item=9 THEN RETURN 
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39940 PRINT normal $:c=1 
39058 FOR i=0 TO item-i 
39060 zi=aí(ti,O) 

39070 xi=alt(i,i) 

39080 yl=aA(i,=ã) 

9090 nxi=aíti,ã) 

J7100 y2=aúti,ão 

39110 GOSUE J5000 

9120 NEXT à 

391Z8 RETURN 


Ensaio 


Execute o programa e desenhe algumas formas, parando depois o programa 
com «N » e escrevendo: 


CLS &2/ENTER] 
GOTO 39000[ENTER] 


Deverá ver todas as formas reimpressas no écran. 


Módulo 3.2.15: Apagamento de linhas e formas 


Uma vez que o desenho não é armazenado como um todo, mas antes como li- 
nhas e formas individuais, também é simples dar ao utilizador a opção de apagar 
itens individuais. Este módulo visualiza todo o desenho, linha por linha, com a op- 
ção de apagar qualquer linha. Pode também ser usado para redesenhar o desenho, 
caso o écran tenha ficado limpo devido à paragem do programa. 


Módulo 3.2.15: linhas 40000-40290 

INDDO REM IE ITED IE IEDEDEIE DE DEDE IE DE IE IEEE IE DE IEEE E TE E HE 
400170 REM Delete Mode 

10020 REM III IEIE IE IE JEI IE DE IE IE IE IEIE IE E IE DE ICI IEEE E IE HE 

42030 CLS 

49240 CLO 

420592 FRINT * DELETE MODE" :FRINT 

40050 PRINT “Item & 1":PRINT 

49070 FRINT “Scale:";unit 

400890 PRINT “Items:";item: PRINT 

42090 FRINT "Cs CHR$ (CI); CHRECIS) O Next 
Item" 

42100 FRINT “"'E' Erase" 

49110 FRINT "'Nº Return” 

40120 t&="":i=0:WHILE icitem 
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ABiza zi=aíZti,O) 

40140 x1i=aí(isl) 

42150 vi=aZ(is,?Z) 

490160 x2=aZ(içõ) 

40170 y2=aí(i,ã) 

49189 d=D:WHILE tEl='N" AND d=0 
490190 FRINT overf:c=2 

4902090 GOSUE =Z50900 

40210 tE="" 

490220 d=1:WEND 

402530 WHILE té="" 

407240 tE=UPPERS$S (INKE VE) 

40259 WEND 

40260 IF t$="E" THEN GOSLA 4:000 ciso so 
SUB 42090 

49278 WEND 

19290 temp=Q2 

422990 RETURN 


Comentário 


Linhas 40120-40220: os pormenores para uma forma são retirados do quadro 
A% e desenhados com OVER activado. 


Linhas 40230-40280: o programa espera que o utilizador introduza «E», para 
apagar a forma visualizada, ou qualquer outra tecla para a confirmar. Nada disto te- 
rá ainda efeito, já que é necessário introduzir os dois módulos seguintes. 


Módulo 3.2.16: Apagamento de uma forma do quadro alfanumérico 


Após a reimpressão de uma forma a partir do quadro alfanumérico, o seu apa- 
gamento definitivo apenas requer que ela seja redesenhada com OVER, sendo o qua- 
dro eliminado, para remover o registo dos pormenores. 


Módulo 3.2.16: linhas 41000-41120 


JIDDO REMAREELLEKLEEKEAAKEREEARS CCEE ERA 
419210 REM Erase 

GIVDD REMELEREREEELLEEERSECEARERL RARE 
419720 PRINT overf:c=º 

41949 GOSUR =5000 

4105390 item=zitem-i 

412594 FOR j=i TO item-l 

419790 FOR k=90 TO 4 
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41080 aL(j,k)=aú(i+i,k) 

41090 NEXT k 

41100 NEXT j5 

41110 LOCATE 7,6:FRINT item; TAR(I4) 
41120 RETURN 


Módulo 3.2.17: Confirmação de um item em modo de apagamento 


Para confirmar um item, tudo o que é preciso fazer é voltar a desenhá-lo com 
OVER desligado. 


Módulo 3.2.17: linhas 42000-42070 


42000 REM SEIEIEIEIEIEIEIEIE IE TETE TETE III IE DEI EEE 
42010 REM Next Item 

42820 REM SESEIEIEIEIEIEIE DESTE IES IE IE IEEE TEREI IRA EI EE 
42030 FRINT normalf:c=1 

42040 GOSUR 350079 

42050 i=i+i 

420692 LOCATE 7,3:FRINT i+i 

42070 RETURN 


Ensaio 


Desde que você tenha introduzido algumas formas, deverá agora premir «D», a 
partir da parte principal do programa, para obter este módulo. Confirme que está 
em condições de folhear o desenho que introduziu, apagando itens ou deixando-os 
intactos. Se premir « » no início do desenho, tal não deverá ter outras consequên- 
cias que não sejam a reimpressão de todo o desenho. 


Módulo 3.2.18: Mensagens de erro 


Trata-se de um módulo simples, para impedir uma mensagem de erro especifica- 
da por outra parte do programa. 


Módulo 3.2.18: linhas 34000-34070 


FIBRA REMETE ED IEIE DEDE ITED IE DEDE IE DE IEEE E IEEE ME E 
34010 REM Error 

FADA REMO SESI DEIEIE TETE DEDE IE DE IE IDE IE IEIE IE IE IICT II HEHE 
34030 PRINT Hi ,xf; 

342049 SOUND 1,1022,100 

34050 FOR i=i TO 1508:NEXT à 

34960 PRINT &l 

34070 RETURN 
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Módulo 3.2.19: Janelas e escalas 


Até agora, não tocámos, nem ao de leve, numa das mais úteis capacidades do 
«Desenhador» — a de deslocar o écran como uma janela sobre um vasto desenho, 
ou a de encolhê-lo de modo que possa ser visto num único écran. Este módulo é bas- 
tante complexo, mas seria ainda pior se não fosse o facto de o 464 tornar tão fácil a 
deslocação da origem (ORIGIN) dos gráficos e o desenho de linhas que não apare- 
cem no écran sem gerarem um erro. 


Módulo 3.2.19: linhas 31000-32280 


FIDOD REMEREREEEHAEEELELERANASERA CARAS 
51910 REM Window 

SIDEOD REMALERKLLLENEREAKKEECERRAEERERAR 
J1IBIB x$="*OUT OF RANGE*" 

1040 e=D:WHILE e=D OR x:-153B4 OR x>165 
33 

Z10590 IF e=1 THEN GOSUE Z4290 

31060 INFUT &1,"X"su 

21070 e=1:WEND 

1250 e=0:WHILE e=Q OR v:-15]Z84 OR y:163 
Bs 

19090 IF e=1i THEN GOSUE Z4090 

31100 INPUT EL,"Ytay 

Si1110 e=t:WEND 

31120 =2=B:WHILE e=90 OR unitcl 

J11Z2 IF e=1 THEN GOSUAR Z4009 

31140 INPUT Hi."Scale":unit: PRINT &1 
31150 e=1:WEND 

31169 pix=2/unit 

1170 LOCATE 7,9:FRINT unit: TAR(L4) 
31180 left==-190*unit: IF left:-16Z84 THE 

M left=-16J84 

31199 right=x+99%unit: IF right :16383 THE 

N right=16385 

31200 top=y+99x*unit: IF top>16383 THEN ta 

p=15385 

Ji2Z1Q bottom=y-iBBxunit: IF bottom: 16784 
THEN bottom=-16394 

S122B x(BD)=x:y(D)=y 

SiZIB x(1)=x:y(1)=y 

“1240 temp=0 

31250 ORIGIN 200-x*pix ,200-y+pix,2,798,3 
93,0 

31259 CLG 
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31270 GOSUB 39908 
:1280 RETURN 


Comentário 


Linhas 31030 e 31050: são uma chamada da rotina de mensagem de erro acaba- 
da de introduzir. O módulo contém várias chamadas, para avisar o utilizador quan- 
do estão a ser introduzidos valores inválidos. 


Linhas 31060-31110: o utilizador é convidado a introduzir as coordenadas X e Y 
do centro da nova janela. A dimensão total do desenho é de 32768*32768 unidades 
e a janela pode ser deslocada para qualquer parte desta área teórica. 


Linhas 31120-31150: é introduzida a escala da janela. Quanto mais alto for o va- 
lor introduzido, menor será o desenho, quando colocado no écran. Isto permite a 
criação de um desenho numa escala que é muito maior do que o écran e a visualiza- 
ção do referido desenho numa escala reduzida, para que tudo possa ser visto de uma 
vez só. 


Linhas 31180-31210: são estabelecidas as variáveis que representam os limites do 
écran. Se algum dos limites estiver para além da dimensão máxima para o desenho, a 
janela será deslocada até que os seus limites estejam dentro do permitido. 


Linhas 31220-31270: ambos os cursores são deslocados para o centro da nova 
janela e a origem dos gráficos reposta a zero. O écran de gráficos é limpo e, então, é 
chamado o módulo de reimpressão, para recriar o desenho. É muito possível que, 
com a janela deslocada, alguma parte ou todo o desenho fique fora da nova janela e, 
desta forma, não esteja visível. 


Ensaio 


Com um desenho introduzido, deve agora poder deslocar o écran sobre o dese- 
nho, ampliando-o ou encolhendo-o. 


Módulo 3.2.20: Armazenamento e carregamento em fita 


Trata-se de uma secção padrão de armazenamento de dados. Para uma explica- 
ção dos métodos, veja o programa «Gráfico 3D», no capítulo anterior. 


Módulo 3.2.20: linhas 32000-33130 

TLDDA REMO SE IEDEDEIEIEIEIEIEIE DE IEEE IEEE E EIA IE 
32010 REM Save To Tape 

JP02D REMEREEEREEEREEERREKEERER ERR A 
3S2030 INPUT Hi,"'Name:",n$&:PRINT ki 
32840 OFENOUT "it +ngF 
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32050 PRINT H9,item 

322680 FOR i=Q0 TO item-i 

32070 FOR j=0 TO 4 

S2260 PRINT HO,aú(ti,õ 

“2090 NEXT 5 

“2100 NEXT à 

32118 CLOSEOUT 

32120 RETURN 

TEDOD REMETE IEIEIEIE ILE IEEE IEEE IEEE II E EE 
J3J0120 REM Load From Tape 

ZISDOO REM IEIEIEME SETE DEE DEE IEIEIE IE IEEE IEEE IEEE 
335030 INPUT H1,"Name:",n&:FPRINT &i 
J:040 OPENIN "i"+ng 

335050 INPUT H9,item 

“31060 FOR 1=02 TO item-i 

335070 FOR 5=8 TO 4 

33080 INPUT H9,a4(1,3) 

SEB9R NEXT 5 

JZ100 NEXT à 

33110 CLOSEIN 

33120 GOSUB 39000 

“31398 RETURN 


Ensaio 


Crie um desenho simples e utilize «T» para o armazenar. Pare o programa e de- 
pois execute-o novamente, para limpar a memória. Responda «Y» à solicitação que 
lhe pergunta se deseja carregar a partir da fita (TAPE). Dê o nome do ficheiro sob o 
qual o desenho foi armazenado e deverá ver o desenho recriado no écran. 

Se este ensaio for bem sucedido, o programa estará pronto para ser utilizado. 


PROGRAMA 3.3: MÚSICA 
Função do programa 


Além das suas muitas outras capacidades, o 464 é, sem dúvida, um dos micros 
musicais mais potentes da geração corrente, com uma gama de úteis características 
com que os possuidores de outros micros apenas podem sonhar. Não se trata apenas 
do facto de, contrariamente a algumas outras máquinas cujas características são 
igualmente poderosas, o BASIC do 464 estar concebido para permitir a qualquer 
pessoa, com um mínimo de esforço, retirar o máximo do poder musical fornecido 
pelo hardware. 

O corrente programa é um bom exemplo do que pode ser conseguido com algu- 
ma reflexão. Ao utilizar o programa, você estará apto para organizar melodias e har- 
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monias complexas, manipulando-as de variadas formas. Quer você esteja musical- 
mente treinado ou seja apenas um curioso, os resultados que o programa porporcio- 
na surpreendê-lo-ão e, esperamos, farão as suas delícias. 


CHANGE PARAME TER s 


Relative octave ( ! Dl 


Relative note ( B | 
Unit length (<( 280 ) :15 
Play channel O (CY) : 
Play channel 1 (<P): 
Play channel 2 (CY) :N 


Fig. 3.4 — Um «menu» de «Música» 


Módulo 3.3.1: Os dados para a melodia 


Tal como acontecia com os programas de gráficos vistos anteriormente, o méto- 
do adoptado no programa é o de colocar a informação em que se baseará a melodia 
numa secção de instruções de dados, no final do programa, permitindo assim uma 
muito maior facilidade de examinação e edição. Neste ponto, não é importante que 
compreenda os dados, já que os seus vários aspectos serão explicados, à medida que 
formos avançando nas partes do programa que os utilizam. Os dados específicos 
aqui apresentados executam uma versão muito respeitável de «Fiir Elise». 


Módulo 3.3.1: linhas 26000-28390 


26008 REM SESEIEIEIEIEIEIEIEIE DEDE IE IEEE EEE IEEE IT 
2698190 REM Channel Q Data 

26020 REM JEIEIEIESEIEIEIE TESE DE IEIEIEDE IE IE IE IE DETECTED RE 
26230 DATA ENVI 

24040 DATA + 

26050 DATA Li,ióá,is 

24060 DATA lá,is,ló,ii,i4,i2 

26070 DATA L2,9,L1,R,0,4,9 

26080 DATA LZ,iÍi,i1i,R,4,8,1i 

26090 DATA L2,Í2,Li,R,4,ié,iõs 

26100 DATA lá,is,ló,ili,i4,iz 

26110 DATA L2,9,L1,R,90,4,9 

26120 DATA LE,listi,R,4,8.11i 

26130 DATA [1 

26140 DATA L4,9 

261520 DATA 1 

26160 DATA *2 
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26170 
26180 
26190 
26200 
26210 
26220 
26230 
26240 
26250 
26260 
26270 
26280 
26290 
26I00 
263108 
26320 
26330 
26340 
26350 
26360 
265370 
26380 
26390 
27000 
27010 
27920 
27030 
z8000 
=8010 
28020 
28030 
28940 
28050 
28260 
28970 
28980 
28090 
28120 
28110 
28120 
28138 
28140 
28150 
28160 


DATA [2 

DATA L2,9,LL,R,Í1,12,14 
DATA + 

DATA L3,16,L1,7,17,16 
DATA LZ,14,L1,5,16,14 
DATA L3,12,1L1,4,14,12 
DATA L2,11L,LI,R,4,16,R 
DATA R,16,28,R2,15 

DATA 16,R2,15,16,15 
DATA 16,15,16,11,14,12 
DATA L2,9,L1,R,8,4,9 
DATA L2,11,L1,R,4,8,11 
DATA L2,12,Li,R,4, 16,15 
DATA 16,15,16,11,14,12 
DATA L2,9,L1,R,0,4,9 
DATA L2,ÍÍ,LI,R,4,12,11 
DATA C1 

DATA L2,9,L1,R,11,12,14 
DATA 1 

DATA *2 

DATA L2,9,L1,R,0,4,9 
DATA 12,16,L4,21 

DATA end 

REM SESEIEIEIEIEIEIEIEIEIEICIEILIEIE IE EEE REA A 
REM Channel 1 Data 

REM SESEIEIEIE IEEE IEIEIEIEIEIEIE IE IE IE IEEE ILE EEE IE 
DATA end 

REM SESI IEIEIEIEIEIEIEIEIE IE IE IE IEEE IEEE ALII E 
REM Channel 2 Data 

REM JEJEIEIEIEIEIEIEIEIEIEICIE IE IEEE EIS DEE AE 
DATA ENV1I,O-2 

DATA + 

DATA R2 

DATA Rá 

DATA 9,16,21,R3 

DATA 4,14,20,R3 

DATA 9,16,21,R3 

DATA Rá 

DATA 9,16,21,R3 

DATA 4,16,20,R3 

DATA [Ci 

DATA 9,16,21,R1i 

DATA 1 

DATA *2 


124 DAVID LAWRENCE E SIMON LANE 


281790 DATA [2 

281804 DATA 9P,16,21,R5 
28190 DATA + 

28202 DATA 1%,19,24,R3 
28210 DATA 7,19,23,RE 
28220 DATA 9,16,21,R3 
28230 DATA 4,16,28,R2,00,4 
28240 DATA 16,R,R,15,16,R 
28250 DATA R,1i5s,16,R3 
28269 DATA R6,0-2 
28270 DATA 9,16,21,R3 
28289 DATA 4,16,22,R3 
28290 DATA 9,16,21,R3 
28300 DATA Ré 

28318 DATA 9,16,21,R3 
28320 DATA 4,16,20,R5 
28330 DATA [1 

28340 DATA 9, 16,21,RS3 
28350 DATA 9 

28360 DATA *2 

28370 DATA [2 

28380 DATA 9,16,21,R3 
28390 DATA end 


Módulo 3.3.2: Inicialização 


Trata-se de um módulo mais complexo do que é habitual, devido à necessidade 
de recolher e processar os dados da melodia antes de passar à parte do programa que 
é capaz de executar a própria melodia. 


Módulo 3.3.2: linhas 10000-10160 

IDODO REM SIXIEIEICIEICICICICICICICICILICICICIE EEE 

iBBim REM Initialise 

10220 REM ERFEEEEEEEEEERERERERERER REA 

IBZ30 CLS:LOCATE 15,13:PRINT"Please Wait 
10044 DIM af (208,2) ,p$(2), ,p(2) ,d(2),sA(2 
1900 ,4) 

iBD5Q FOR c=B TO 2 

10060 LET p=Q2 

10970 READ ag(p,c) 

10099 as(p,C)=LOWER$ (aF(p,c)) 

192090 IF af(p,c)<>"end" THEN p=p+i: GOTO 
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190970 

iDiIDA pEtc)="Y" 
19110 NEXT c 
19128 roc-Q 

1921320 rno=0 

12140 ul=20 

192150 GOSUB 25000 
121640 GOSUE 150008 


Comentário 


Linha 10040: a complexidade da tarefa resultará da variedade de quadros a se- 
rem empregues no decurso do programa. Serão explicados, à medida que forem sen- 
do utilizados. 


Linhas 10050-10110: os itens de dados são lidos para as três colunas do quadro 
A$. O quadro, tal como aqui se encontra organizado, pode conter até três conjuntos 
de 200 itens de dados, correspondentes às três vozes, ou canais, do 464. Os itens de 
dados são carregados, inicialmente, para a primeira coluna. Quando for encontrada 
a palavra «end», o ciclo continuará a ler (READ) os dados, embora começando a 
colocá-los na coluna seguinte do quadro. A partir disto, pode ver-se que é vital a ex- 
terminação dos dados de cada voz com a palavra «end», tal como nos módulos- 
-espécime DATA que foram dados. Finalmente, para cada voz, o elemento relevante 
do quadro P$ é regulado para «Y» para indicar, pelo menos inicialmente, que o ca- 
nal determinado deve ser tocado. 


Linha 10120: a variável ROC será utilizada para determinar em que oitava se 
baseará a melodia — os dados (DATA) da melodia serão interpretados como relati- 
vos a essa oitava-base. 


Linha 10130: de forma similar, RNO é a nota base. Se for alterada durante o 
programa, a tecla em que a melodia é tocada mudará. 


Linha 10140: a variável UL é utilizada para armazenar a duração normal da no- 
ta. Dentro dos dados da melodia, cada nota será um múltiplo da duração normal. 


Linhas 10150-10160: fazem apelo a duas sub-rotinas, que começam o processa- 
mento dos dados da melodia de uma forma mais conveniente para o 464. 


Ensaio 


Precisará de introduzir duas linhas temporárias: 


15000 RETURN 
25000 RETURN 


126 DAVID LAWRENCE E SIMON LANE 


Execute agora o programa. Deverá haver uma pausa considerável antes do re- 
torno do cursor. Não é possível ainda fazer algo com os dados recolhidos, mas, pelo 
menos, você ficará a saber que não existem erros de sintaxe naquilo que introduziu. 


Módulo 3.3.3: O «envelope» de som 


O envelope de uma nota é, basicamente, a forma que dita o modo como ela nas- 
ce do nada, prossegue e, eventualmente, se retira novamente para o silêncio. A maio- 
ria dos sons e instrumentos musicais possuem envelopes bastante distintos. O(s) co- 
mando(s) de envelope para o programa é colocado neste local do programa para o 
lembrar de que, de muitas formas, ele faz parte dos dados da melodia. A alteração 
dos envelopes irá modificar o som do que for executado quase tanto como se se tra- 
tasse de uma alteração de notas. 

Não vamos aqui abordar os aspectos técnicos dos envelopes, pois qualquer dis- 
cussão útil tomaria muitas páginas e, honestamente, você pode aprender mais com a 
experimentação de diferentes regulações, uma vez introduzida a totalidade do pro- 
grama. 


Módulo 3.3.3: linhas 25000-25040 
25000 REM 5 IEIEIEIEIEIEIEDEIEDEIE IE IE IE IE IEEE DE IE IEEE DEI 


20190 REM Put ENV and ENT Commands Here 
25020 REM SESESMEIEIEIEIE TETE DE DEI IE IE DEDE IE TETE IE IICT HE 


25030 ENV 1,7,-1,10,8,-1,40 
25040 RETURN 


Módulo 3.3.4: Processamento dos dados da melodia 


Nesta altura, muitas pessoas ficarão surpreendidas por não passarmos à exe- 
cução da melodia contida nas instruções de dados. De facto, a execução da melodia 
está ainda a alguma distância. É necessário, primeiro, processar os dados. 

A razão para isto consiste em que, na nossa busca da forma mais fácil de regis- 
tar uma melodia, abandonámos o formato requerido pelos diferentes comandos de 
som. A notação utilizada nas instruções de dados, como poderá verificar quando 
chegar a analisar os diferentes comandos nelas contidos, é fácil de recordar e utilizar, 
mas precisa de ser traduzida antes de ser fornecida ao comando de som (SOUND) do 
464. Por rápido que o BASIC do 464 seja, a tarefa de traduzir os comandos até um 
máximo de três vozes e executá-los simultaneamente está para além das possibilida- 
des daquele código. Poderia fazer-se, mas verificar-se-ia uma limitação inaceitável 
na velocidade a que cada melodia poderia ser tocada. 

O método adoptado é, portanto, levar a efeito qualquer tradução necessária, em 
primeiro lugar, armazenar os parâmetros para cada uma das notas a serem tocadas 
no quadro S% e, só então, executar a melodia, utilizando S% como fonte. 
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Módulo 3.3.4: linhas 15000-15140 


13098 REM SESAEIEIEIEIEIEIEIEILIEAEIEIEIEIE IEEE ERES 
15910 REM Compile Data 

15020 REM SSCIEIIEIEIEICILICIEIEIEIEIEIEIEICICI IEA IEEE AE 
15030 FOR c=0 TO 2 

15040 l=1i:v=12:0=0:ev=B:et=D:p=B:r=1 
15050 n=8 

15060 WHILE aft(p,c)<>"end" 

15070 FOR i=i TO B 

15280 IF LEFT$(a$g(p,o),1)<:MIDE(“"ovi*[lTe 
rº,i,1) THEN NEXT à 

15998 ON i GOSUB 14020, 17000, 18000, 19000 
, 22000, 21000, 22000, 23000, 24000 

15100 p=p+i 

151190 WEND 

151290 d(c)=n 

15130 NEXT c 

151490 RETURN 


Comentário 


Linhas 15030-15130: o processo é levado a efeito para todas as três vozes, ou ca- 
nais, do 464. 


Linha 15040: as variáveis desta linha serão utilizadas com os seguintes objecti- 
vos: 


L — duração da nota 

V — volume 

O — oitava 

EV — envelope de volume 

ET — envelope de tom 

P — posição, dentro da sequência, de comandos para uma voz 
N — número de notas tocadas 


Linhas 15070-15090: semelhante à técnica MENUS utilizada no programa dos 
gráficos. Aqui, o ciclo compara o comando contido em A % com os comandos per- 
mitidos registados na cadeia da linha 15080. Se a primeira letra do comando tiver 
correspondência com uma das letras dentro da cadeia, então a variável de ciclo I re- 
gista a posição do comando, a qual é utilizada por ON... GOSUB. O efeito dos co- 
mandos individuais será discutido a propósito dos módulos que os abordam. Se a 
primeira letra do comando não for uma das letras da cadeia de comando, parte-se do 
princípio de que o comando é um valor de nota. 


Linha 15120: o número de notas para cada voz é armazenado no quadro D. 
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Ensaio 


O único ensaio, e que nem é grande coisa, consiste em colocar comandos RE- 
TURN em todos os destinos especificados na linha 15090. O programa será então 
executado, de modo que você possa ver que não existem erros de sintaxe. A adição 
destas linhas RETURN permitir-lhe-á também executar o programa de cada vez que 
introduzir um dos módulos seguintes, que efectuam o processamento dos dados da 
melodia. 


Módulo 3.3.5: O valor de uma nota 


A maior parte de uma melodia vai ser constituída, como é perfeitamente natu- 
ral, por notas, sendo este módulo o que pega na representação das notas, a partir 
dos dados da melodia, e a torna compreensível. 

Os próprios valores de nota são introduzidos na base do sistema de doze tons. 
Uma oitava, para a música ocidental, divide-se em oito tons inteiros e quatro semi- 
tons, sendo doze no total, de modo que cada nota de uma oitava possa ser represen- 
tada por um número de O a 11. Uma vez que existe uma relação matemática perfeita- 
mente nítida entre as notas de uma oitava, ou mesmo entre as notas de oitavas dife- 
rentes, é perfeitamente possível ir além da gama de O a 11, sendo 12 a primeira nota 
da oitava acima, 24 a primeira nota da oitava seguinte e assim por diante, deixando a 
este módulo a tarefa da tradução. 


Módulo 3.3.5: Linhas 24000-24070 


24000 REM SESEIEIEIEIEIEIEIEIEIEIEIEIEICIEIEIEICIEIEIC IICT 
24010 REM Note 

Z4D2D REM SESEIEIEICIEIEIEIEIEIEIEIEIEIEIEIE TETE IEIEIEIEILIE IE ICI 
24030 fr=440x(2º (o+(VAL (af (p,c))-9)/12)) 
=420420 tp=ROUND (125000/fr) 

24050 sítc,n,B)=tp:isáí(tc,n,i)=l:sá(tc,n,2) 
=visáA(tc;n,3)=ev:sá4(c,n,4)=et 

24060 n=n+i 

24070 RETURN 


Comentário 


Linha 24030: esta fórmula traduz o valor de nota (tomando em consideração o 
valor de oitava, 0, que discutiremos mais adiante) para um valor de frequência. 


Linha 24040: tendo chegado a valor de frequência, esta linha tradu-lo para um 
valor que pode ser usado para conduzir o comando SOUND — não há nada de espe- 
cial quanto ao método, a não ser que o 464 está concebido para funcionar com 
125000/TRUE FREQUENCY (FREQUÊNCIA VERDADEIRA). 
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Linha 24050: a presença de um valor de nota nos dados da melodia é assumida 
como comando para tocar uma nota, de modo que os variados itens que concorrem 
para a formação de um som (SOUND) são transferidos das variáveis em que se en- 
contram armazenados para uma linha do quadro S%, a qual será eventualmente uti- 
lizada na execução da melodia. 


Módulo 3.3.6: Alteração da oitava 


Terá notado, na fórmula de extracção do valor de uma nota, que o valor da oi- 
tava (0) é tido em consideração. Isto permite uma maior flexibilidade na forma como 
os valores de nota podem ser introduzidos. A primeira nota da segunda oitava tanto 
pode ser introduzida como 12, como a oitava ser alterada para 1, sendo então o va- 
lor de nota especificado para O. O método para especificar a alteração de uma oitava 
é incluir um 0, seguido de um número. 


Módulo 3.3.6: linhas 16000-16040 


16000 REM SESC 3EJEIEIEIEIEIEIE IE IE TETE IEIE IE IE IEIE IE III 
169019 REM Octave 

16020 REM JESC3IEIEIEIEIEIEIEIEIEIEIEIEIE TESE IEEE IE IEEE E IEEE 
169398 o=VAL (MID$(a$t(p,c),2)) 

146040 RETURN 


Módulo 3.3.7: Especificação do volume 


O volume é especificado incluindo V, seguido de um volume válido nos dados 
da melodia. 


Módulo 3.3.7: linhas 17000-17040 


I72DO REM SESIIESEIEIEIE TETE TE IEIEIEIEIE DEI IEEE ICI IEEE 
i781i0 REM Volume 

I702A REM RIEIEIEIEIEIEIE IEEE SETE TETE DEI DEIE IE IEIEIC IEEE 
i7BZ0 v=VAL (MIDE(af(p,c),2)) 

17040 RETURN 


Módulo 3.3.8: Marcação da duração da nota 


A duração da nota é especificada incluindo L, seguido de um valor nos dados da 
melodia. A duração introduzida nos dados da melodia será multiplicada pela dura- 
ção da nota de base estabelecida no módulo de inicialização. 


Módulo 3.3.8: linhas 18000-18040 
18000 REM JEJEIEIEIEIEIEIEIEIEIEIEIEIEIEICIE REI TEEDE 
iBggig REM Length 
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19020 REM HELLER 
iBZZB 1=VAL (MIDE(aF(p,c),Z)) 
18042 RETURN 


Módulo 3.3.9: Repetição de uma secção da melodia 


A maioria das melodias contêm repetições. De facto, uma melodia sem repeti- 
ção seria, muito provavelmente, um pouco incómoda de ouvir. Esta repetição será, 
por vezes, de pequenas secções da melodia e, outras vezes, de grandes pedaços. Para 
poupar espaço, é razoável incluir no programa a possibilidade de marcar uma secção 
da melodia a ser executada duas vezes consecutivas. No programa corrente, uma tal 
secção é marcada no início por um asterisco e no fim por um asterisco seguido de um 
número, o que indica quantas vezes a secção deve ser tocada. 


Módulo 3.3.9: linhas 19000-19090 

1I9B0D REM SEIESEIEIEIEIEIEIEIEIE DEI IE IE IE IEIEIEIEICIC IEEE ICI E 
ioZiB REM Repeat 

12020 REM SESESEICIEIEIEIEIE IE IEEE IEIEIEIE TE IE IE IEEE ICI IEEE 
ioU32 IF a$(p,c)="*" THEN r=1:RETURN 
19042 IF VAL(MIDE(aF(p,c),2))=r THEN RET 
URN 

19050 r=r+i 

i9860 WHILE af(p,c)<>"w" 

19270 p=p-l: IF p=-i THEN RETURN 

io289 WEND 

19290 RETURN 


Comentário 


Linha 19030: para chegar a este módulo, o comando nos dados da melodia deve 
começar com um asterisco. Se for apenas um asterisco, a variável R, que armazena o 
número de vezes que a secção foi repetida, é regulada para 1. O controlo retorna en- 
tão à parte principal do programa, para que possa continuar a traduzir a melodia. 


Linha 19040: se o asterisco for seguido de um número, será o fim de uma sec- 
ção. O valor de R, que mostra quantas vezes a secção foi repetida, é comparado com 
o valor a seguir ao asterisco, que mostra quantas vezes deveria ter sido repetida. Se 
os valores forem os mesmos, então o programa prossegue para lá dessa secção. 


Linhas 19050-19080: é aumentado o número de repetições registado e o progra- 


ma retrocede para o início da secção a ser repetida, antes de regressar à sua parte 
principal. 
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Módulo 3.3.10: Variação de secções repetidas 


Acontece muitas vezes que, quando uma secção de uma melodia é repetida, são 
feitas pequenas alterações — a segunda repetição pode terminar em clímace de uma 
sucessão de notas altas, em que a primeira repetição terminara em notas baixas. O 
módulo corrente permite ao utilizador especificar que, dentro de uma secção repeti- 
da, certo número de notas apenas seja incluído durante uma das repetições. Desta 
forma, por exemplo, uma secção poderia ser repetida duas vezes, com um final para 
a primeira repetição e um final diferente para a segunda. O método neste programa 
consiste em marcar o início da subsecção com um símbolo [, seguido de um valor re- 
presentativo do número da repetição durante a qual a subsecção será executada, e o 
fim da subsecção com um símbolo ] apenas. 


Módulo 3.3.10: linhas 20000-21030 


2000D REM SEJEIEIECIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEICIE IEEE IEEE EE 
2209010 REM On nth Repeat Do 

20020 REM SEJEJEIEIEIEIEIEIEIEIEIEIEIEIEIEIE IE IE TESE IEEE II IEEE 
20930 IF VAL(MID$(asg(p,c),2))=r THEN RET 
URN 

209040 WHILE af(p,c)<>"I"” AND a$(p+1,c)<> 
" end “" 

22050 p=p+i 

20060 WEND 

20070 RETURN 

21008 REM SE3EJESEIEIEIEIEIEIEIEIEIEIEIEIE SETE IEIEIE ICE IE E SE E SE 
21010 REM End Do 

21020 REM SEIEIEIEICILICICIEICIEIEIEIEIEIE IEEE EI 
21030 RETURN 


Comentário 


Linha 20030: para chegar a este ponto, o programa deverá ter encontrado nele 
incluído um símbolo [. Esta linha examina o número que se segue a [. Se o número 
for o mesmo do valor de R, que regista o número de vezes que a secção corrente foi 
repetida, o programa será autorizado a continuar as notas que se seguem a ]. 


Linhas 20040-20060: este ciclo é utilizado se a subsecção não tiver de ser exe- 
cutada durante a repetição, passando simplesmente por cima da subsecção, até en- 
contrar o símbolo de finalização |. 


Linha 21030: quando um ] é encontrado, esta linha apenas permite a continua- 
ção do programa. 
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Módulo 3.3.11: Alteração de «envelopes» 


Estabelecemos já um envelope, mas você deve saber que o 464 pode definir até 
16 envelopes para volume e tom. Se se incluir ENV ou ENT, seguidos (sem espaço) 
de um número válido para um envelope que definimos no módulo em 25000, isso irá 
alterar o envelope utilizado pelo comando SOUND. 


Módulo 3.3.11: linhas 22000-22050 


P2DDD REM JESIEIEALIEIEIEIEIEIEIEIE TETE IEIEIEIEIEIEIE IE IE III IE 

22010 REM Envelopes 

22020 REM SESESEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIE TEIA 

22030 IF LEFT$(as(p,c),535)="env" THEN ev= 
VAL (MID$ (af (p,c),4)) 

22040 IF LEFT$S(a$(p,c),3)="ent" THEN et= 
VAL (MID$E (a$(p,c),4) 

22050 RETURN 


Módulo 3.3.12: Criação de um silêncio 


Não deve esquecer-se de que o silêncio é tão importante a uma melodia como o 
som, pelo que precisamos de um método para parar o som durante alguns momen- 
tos. No programa corrente, é criada uma interrupção através da inclusão de R nos 
dados da melodia. Um único R cria uma pausa equivalente à duração de uma unida- 
de de nota, enquanto R seguido de um número cria uma pausa igual ao número, em 
duração. 


Módulo 3.3.12: linhas 23000-23060 


?3D0B REM J%IEIEIEIEIEIEIE IE DEDE IE DEDE IE IE IE IDE IE IE IE II IEEE 


23010 REM Rest 
230280 REM SJSEIIEIEIEIEIEILIEIEIEIE TETE IE IEIEIEIEIE IE II IE IEEE 


2Z030 IF ag(p,c)="r" THEN du=l ELSE du=V 
AL(MIDE(a$(p,c),2))%1 

23040 sí(tc,n,0)=0:s4(c,n,1il)=du:sáí(tc,n,2) 
=0:sá%í(c,n,3)=B:s4(c,n,4)=0 

230508 n=n+i 

230698 RETURN 


Ensaio 
Se não tem efectuado os ensaios após a introdução dos módulos individuais, po- 


de agora executar o programa. Cada uma das secções será chamada a actuar, à medi- 
da que se der a análise dos dados da melodia. 
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Módulo 3.3.13: O «menu» do programa 


Trata-se de um simples menu, que permite o acesso às restantes funções do pro- 


grama. 


Módulo 3.3.13: 11000-11140 


119000 


REM JESEJEIEIEIEIEIEIEIEIEIEIE IE IE IE IE IE IE IE IEIE IE IEEE IEEE 
REM Control 
REM SEJEIEIEIEIEIEIEIEIEIEIEIE JEI IE IE IEIEIEIE IEEE IE IEEE 
WHILE 0o<>3 
CLS:PRINT TAB(18); "MUSIC"; TAB(18B); 


PRINT: PRINT"Options:":PRINT 
PRINT"1) Change parameters" 
PRINT"2) Play music" 

PRINT'"S) End" 

PRINT: INPUT"Enter option: ",o 
ON o GOSUB 12000, 135000 

WEND 

CLS 

LIST 25000- 

END 


Módulo 3.3.14: Alteração dos parâmetros da melodia 


Quando chega a altura de tocar a melodia, são utilizados certos parâmetros que 
o utilizador pode modificar, usando este módulo. 


Módulo 3.3.14: linhas 12000-12110 


12000 
iz010 
12020 
12030 


REM SESEIEIEIEIEIEIEIE IE IE IE IE IE IEEE IES IEEE IE IEEE IE E 

REM Change Parameters 

REM ESET IE IE TETE IE DEI IE IE IE IE TETE TETE TETE IE IE IE IEEE SEE 

CLS:PRINT TAB(12);"CHANGE PARAMETE 


RS" : TAR(12) Hj f================5=" PRINT 


12040 


PEN 2:PRINT"ENTER";:PEN 1:PRINT" t 


o leave parameter unchanged": PRINT 


12050 


FRINT"Relative octave (";roc;: INPU 


To) 20x$:IF x$<>"" THEN roc=VAL (x) 


12060 


FRINT'Relative note (";rno;: INPUT” 


Dor x$s IF x$<>"" THEN rno=val (x$) 


12070 


PRINT"Unit length (“zul;: INPUT") : 


CaxEsIF o x$<>"" THEN ul=VAL (x%) 


12080 
120904 


FOR c=0 TO 2 
PRINT"PFiay channel"ic;“("sps(tc)sal 
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NPUTº) 2",x$:IF x$<>"" THEN pé(c)=UPPER$ 
tx E) 

12100 NEXT c 

12110 RETURN 


Comentário 


Linha 12050: a oitava relativa é a base a partir da qual é calculada a nota a ser 
tocada. 


Linha 12060: com a oitava básica, as notas tocadas podem ser calculadas na ba- 
se de uma nota específica, alterando assim a chave da música. 


Linha 12070: trata-se da unidade que é utilizada quando se toca uma nota. A 
música será mais lenta se se introduzir um valor superior. 


Linhas 12080-12100: nem todas as vozes têm de ser tocadas e este ciclo permite a 
exclusão de qualquer das vozes. 


Ensaio 


Se o programa for executado, após uma pausa para recalcular os dados da me- 
lodia, deverá aparecer o menu. Você deverá poder escolher a opção 1 do menu e es- 
pecificar quaisquer valores que queira como parâmetros. 


Módulo 3.3.15: Controlo de execução da música 


Passamos agora aos dois módulos que levarão a efeito o objectivo principal do 
programa, ou seja, tocar uma melodia. O primeiro destes dois módulos é um módulo 
de controlo que distribui trabalho e fornece o final da melodia; o outro módulo terá 
o trabalho de tocar as notas. 


Módulo 3.3.15: linhas 13000-13160 


1300 REM 5365363 3ESE3EIEIEIEIEIEIEIEIEIE IE IE IE IEEE IEEE 
139210 REM Play Music 

13920 REM SESIEJEIEIEIEIEIEIDEJEIEIE IE IE IEIEIE IE IE IE IEEE IEEE IE 
13038 rtp=2º-(roct+rno/12) 

139040 FOR c=0 TO 2 

13050 p(c)=0 

132608 NEXT c 

13970 SOUND 199,0,0 

135088 GOSUB 14000 

13090 GOSUB 140900 

13100 GOSUB 14000 
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13110 RELEASE 7 
13120 done=0 

13130 WHILE NOT done 
13140 GOSUB 14008 
131509 WEND 

13160 RETURN 


Comentário 
Linha 13030: é a base a partir da qual será executada a melodia. 


Linas 13040-13060: o quadro P de contagem, para as três vozes, é regulado 
para 0. 


Linha 13070: esta linha não tem a função de emitir uma nota, antes se trata de 
um comando de gestão que faz três coisas: 


1) Varrer quaisquer notas que possam permanecer n:. bicha para serem to- 
cadas, pertencentes a alguma utilização anterior. 

2) Especificar que devem ser enviados comandos par as três vozes. 

3) Colocar uma suspensão, para que não possam ser tccadas quaisquer no- 
tas. 


O número 199, por si só, não tem significado: é apenas um método para passar 
certos dígitos binários ou «bits» para binário 1. No caso de 199, são passados os bits 
0, 1,2, 6e 7. São dados pormenores sobre os efeitos destes bits no cap. 6 do seu ma- 
nual. 


Linhas 13080-13110: estas três chamadas ao próximo módulo estabelecem uma 
fila de notas à espera de serem tocadas. Isto significa que quaisquer ligeiros porme- 
nores introduzidos pelo ciclo que executa a parte principal da melodia não terão efei- 
to algum sobre a regularidade da própria melodia. O comando RELEASE, na linha 
13110, inicia as três vozes simultaneamente, uma vez formadas as primeiras notas da 
fila de espera. Esta possibilidade do 464 para enfileirar constitui uma das suas carac- 
terísticas musicais mais importantes. Em quase todos os outros micros domésticos, o 
problema de temporizar a execução das notas mostra-se extremamente difícil, resul- 
tando qualquer atraso no processamento de uma nota em temporização desigual. 
Com o 464, tal problema é eliminado e o programa pode ser mais simples e mais efi- 
caz. 


Linhas 13120-13140: o resto do processo de execução da melodia é apenas uma 
questão de chamar continuamente o módulo seguinte, até que a variável DONE, que 
é estabelecida pelo próximo módulo, indique que foram esgotados os dados da melo- 
dia. 


136 DAVID LAWRENCE E SIMON LANE 


Módulo 3.3.16: Execução das notas 
É o módulo final, que faz soar as notas das três vozes. 


Módulo 3.3.16: linhas 14000-14120 


14000 REM ESSE IEIEIE DEDE DESDE IE DE IE IE IE DESCI IEEE EI E EE 
14010 REM Scan Channels 

14020 REM SIIEIEICICIEIEIEIEIEICICIEICICIEIEICICIC E RE 
142Z2 done=-l 

14940 FOR c=0 TO 2 

14030 IF p(íc)=d(c) OR p$to)="N" THEN GOT 
O 14110 

14062 done=QB 

14070 IF (SQ(2%c) AND 7)=8 THEN GOTO 141 
12 

i4080 n=pí(c) 

142098 SOUND 2ºc,sí(tc;n,B)*rtp,sáíto,nçid+* 
ul,sátc,n,2),sAte,n,3),sátc,n,8) 

14100 p(tc)=pt(tc)+i 

14110 NEXT c 

i4120 RETURN 


Comentário 


Linhas 14040-14050 e 14110: sem atender ao facto de todas as três vozes deve- 
rem ser tocadas ou não, este ciclo está organizado para analisar todas elas. A linha 
14050, no entanto, detecta se uma determinada voz esgotou todos os seus dados, ou 
se o utilizador restabeleceu os parâmetros, de forma a excluir uma voz determinada. 
Se a parte principal do ciclo não tiver sido alcançada (isto é, se ainda houver notas 
para tocar durante uma voz, pelo menos), então o valor de DONE passará a 0. 


Linha 14070: a função SQ é utilizada para determinar se é possível colocar outra 
nota na fila de determinada voz. 


Linhas 14080-14100: se for possível acrescentar outra nota à fila, o próximo 
conjunto de itens de dados a partir de S% será utilizado como base para o comando 
SOUND — note que este não faz imediatamente soar uma nota, mas apenas a acres- 
centa à fila de notas que esperam para ser tocadas. Finalmente, é incrementado o 
contador da voz específica. 


Ensaio 
Finalmente pode efectuar um teste completo do programa. Para isso, basta 
fazê-lo «correr» e, quando o menu aparecer, especificar a opção 2. Logo verá se está 


ou não a trabalhar! 
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CAPÍTULO 4 


Cada vez mais sério 


Nesta fase do seu progresso, deve estar a tornar-se mais familiarizado com as 
capacidades do 464, bem como com algumas das técnicas necessárias para o pôr a 
funcionar para si. Chegou o momento, portanto, de observarmos alguns programas 
substanciais que permitirão ao 464 fazer aquilo que os microcomputadores sabem fa- 
zer melhor — tratar, seleccionar e retirar informações para os seus donos. 

Os programas neste capítulo são: 


UNIFICHEIRO: um potente sistema pessoal de arquivo, capaz de armazenar 
uma vasta variedade de informação, para chamada imediata. 


NÚMERO: é um programa que cria um dicionário de Nomes e Números para 
quase tudo o que desejar, permitindo ao utilizador criar facturas, avaliações de bolsa 
ou mesmo uma contagem das calorias para a ementa do dia. 


TEXTO: um simples programa-produto para processamento de texto, que é 
executado em BASIC. 


MULTIQ: um gerador de ensaio de escolha múltipla. 


PROGRAMA 4.1: UNIFICHEIRO 
Função do programa 


«Unificheiro» é o corolário de um programa que foi desenvolvido ao longo dos 
anos nos livros da série «Micro Funcional». Leitores de livros anteriores escreveram 
a dizer que o utilizam nos seus negócios, no ensino de crianças em idade escolar acer- 
ca da forma como os micros tratam informações, na ajuda a clubes e a organizações 
voluntárias, ou simplesmente na manutenção de registos dos seus livros e discos. 

Os novos conceitos apresentados neste programa incluem: 


1) Pesquisa dicotómica. 


2) Inserção de itens em cadeias contínuas. 
3) Iniciação de um programa sem limpar quadros. 
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Módulo 4.4.1: Organização da estrutura do ficheiro 


Muitos dos livros destinados ao possuidor de um micro pessoal oferecem pro- 
gramas de ficheiro inferiores, que são extremamente inflexíveis na utilização. Está 
incutido no programa que, de cada vez que o utilizador armazenar alguma coisa, 
será sob os cabeçalhos Nome, Endereço, Número de Telefone ou alguma estrutura 
similar. A beleza do «Unificheiro» está em que, enquanto lhe permite indiscutivel- 
mente usar uma tal estrutura, permite-lhe igualmente criar outros ficheiros com 
estruturas muito diferentes — talvez com um cabeçalho, talvez com dez — sem fazer 
quaisquer alterações ao próprio programa. O «Unificheiro» é aquilo que eu gosto de 
chamar um «programa camaleão»: um programa que se adapta a uma variedade de 
diferentes utilizações, reagindo perante o utilizador de diferentes formas, dependen- 
do da tarefa que estiver a executar no momento. 

O objectivo deste primeiro módulo é inicializar algumas variáveis, mas, o que é 
mais importante é que permite ao utilizador organizar o ficheiro original da forma 
exactamente desejada. 


tnencntrito 
tv 6) 


ADDR 
PHONE:B1 2 
COMMANDS AVAILABLE : 


ENTER for next item 
*A” to amend 


*C' to continue search 
“HR” followed by number to move pointer 


“Nº to quit function 
Enter Choice: 


Fig. 4.1 — «Unificheiro» em modo de pesquisa 


Módulo 4.1.1: linhas 20000-20110 


2OBDD REM EEEEEIELEEEEEKEEKEKKEKELKEARK 
20010 REM Create File 

20020 REM CERREERELEEREERERERERE R 
22030 CLS:PRINT TAR(16); "NEW FILE“:PRINT 
TAB(I6);!========" 

20040 PRINT: INPUT"Are you sure (y/n)":r& 
IF LEFT$S(UPFER$ (r$) ,1)="N" THEN RETURN 

20050 CLEAR:DIM arrays (10900) 

z2260 PRINT: INFUT"How many items in each 
entry"sx 
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20070 DIri itemg(x-1l),ptr (x-1) 

200808 PRINT:FOR i=2 TO x-i 

:2090 FRINT'Name of item K"zi+l;: INPUT": 
"sitemfti) 

20295 itemf(i)=UPPERS$(itemé(i)) 

22109 NEXT à 

20110 in=-1:GOTO 11900 


Comentário 


Linhas 20030-20040: a criação de novos ficheiros apagará qualquer informação 
correntemente em memória, pelo que é dada ao utilizador a possibilidade de parar 
nesta altura. 


Linha 20050: a informação a ficar contida no «Unificheiro» será armazenada 
no quadro ARRAY$. Na linha corrente, esta é dimensionada para permitir 1001 en- 
tradas no ficheiro. Pode aumentar este número para 2000 ou mais, se o desejar. A 
única coisa a ter presente é que cada elemento do quadro, antes de ser utilizado, to- 
ma três bytes de memória. Se o quadro for dimensionado para 5000 itens, estarão a 
ser utilizados 15000 bytes de memória, um terço da memória livre, antes de ser arma- 
zenada qualquer informação. Trata-se apenas de uma questão de discernimento — se 
pensa que vai precisar de menos de 1000 entradas num ficheiro, então mais vale dei- 
xar a instrução DIM tal como está, economizando um pouco de memória. Note tam- 
bém que, por estarmos a utilizar um elemento de um quadro para armazenar cada 
entrada, o comprimento máximo de uma só entrada, incluindo os caracteres separa- 
dores, será de 255 caracteres — o comprimento máximo de cadeia que o 464 pode 
tratar. 


Linhas 20060-20100: são uma parte do segredo da flexibilidade do «Unifichei- 
ro». Por cada entrada, que pode imaginar como uma ficha de cartão, se isso o aju- 
da, pode definir quantos itens aparecerem na entrada. Se você estivesse a registar a 
sua colecção de discos, poderia utilizar cabeçalhos como: FAIXA, ÁLBUM, COM- 
POSITOR, INTÉRPRETE ou DURAÇÃO. Neste caso, especificaria cinco itens, in- 
troduzindo depois os nomes dos cinco. De futuro, sempre que utilizar o «Unifichei- 
ro» para armazenar ou retirar informação sobre a sua colecção de discos, ser-lhe-á 
solicitada a introdução de um item de informação sob cada um dos cabeçalhos. Para 
aqueles que se preocupam mais com os problemas técnicos, quando se designa toda a 
ficha de cartão por entrada e os cabeçalhos individuais por itens, isso equivale, em 
linguagem informática, a registos e campos, respectivamente. A utilização das variá- 
veis aqui definidas será explicada no decurso do comentário sobre o programa. 


Módulo 4.1.2: Arranque do programa 


A possibilidade de criar um novo ficheiro não é utilizada em todas as ocasiões, 
durante a execução do programa. Na maioria dos casos, o utilizador pretenderá re- 
carregar dados a partir de cassete. Este módulo de arranque apenas dá ao utilizador 
a oportunidade de dizer qual das duas opções deseja. 
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Módulo 4.1.2: linhas 10000-10150 


ÍIBDODO REM EEEEEEEEEREEREEEERHRRNRR RI 
iBH10 REM Start 

12028 REM Ss SESCSESEIEIEIEIEIEALIEIEIEIEIEIEICIEIEILIC DEE 
iÍD03O0 WHILE NOT in 

19949 CLS 

190508 PRINT TAB(14); "UNIFILE" 

19060 PRINT TAB(1L6); !=======" 

12970 PRINT 

iB08B PRINT"COMMANDS AVAILABLE: " 

19990 PRINT 

12100 PRINT"1) Create new file" 

12119 PRINT"2) Load file from tape" 
19128 PRINT 

19130 INPUT"Enter choice: ",z 

19148 ON z GOSUB 20000, 21094 

19159 WEND 


Comentário 


Linhas 10030 e 10150: estas duas linhas representam uma técnica muito útil, que 
você quererá, sem dúvida, aplicar nos seus próprios programas. Quando o programa 
é inicializado pelo primeiro módulo entrado, uma variável chamada IN (abreviatura 
de INicializado) é regulada para o valor — 1. A razão disto é tornada clara por este 
ciclo. Se o valor de IN for — 1 ao ser alcançada a linha 10030, então nenhuma parte 
deste ciclo será executada. O operador NOT ligado a WHILE, na linha 10030, asse- 
gura que o ciclo apenas será introduzido se o valor de IN for O. Significa isto que, se 
se parar o programa e voltar a iniciá-lo com GOTO 10000 (ou GOTO 1, se foi incluí- 
do o pequeno módulo SAVE que eu recomendei no primeiro programa do livro), ne- 
nhum dos dados em memória se perderá. 


Ensaio 


Introduza uma linha temporária: 


11000 STOP 


Execute o programa e especifique que pretende organizar um novo ficheiro. Si- 
ga as solicitações dadas e introduza alguns valores e nomes razoáveis como resposta. 
O programa deverá então parar. Introduza agora: 


GOTO 19000[ENTER] 


e o programa deverá parar imediatamente — detectou que existe um ficheiro em me- 
mória, ainda que seja vazio, e passou em volta do módulo na linha 10000. 
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Módulo 4.1.3: O «menu» 


Trata-se de um menu normal, mas note que não está previsto que o programa 
pare sob acção de ON ERROR e da tecla ESC. O «Unificheiro» é um programa 
complexo e pará-lo a meio fluxo poderia significar que a informação nele contida se 
corrompesse, por não ter sido completado um processo importante. Para terminar o 
«Unificheiro», deverá sempre regressar a este menu e utilizar a opção 6. 


Módulo 4.1.3: linhas 11000-11210 

11000 REM SE3€E3EIEIEIEIEIE IE IE IEIEDEIE IE JE IE IE IE IE IE ICI IE IE EE 
iigid REM Main Menu 

11020 REM SESEIESEIEIEIEIEIEIEIEIEIE IE TETE IE IEEE IE IEEE IE IE IEEE 
11930 WHILE NOT done 

11240 CLS 

11050 PRINT TABCIá):;"UNIFILE” 

11060 PRINT TAB(16);!'=======" 

11070 PRINT 

1192980 PRINT"COMMANDS AVAILABLE: " 

110908 PRINT 

111920 PRINT"1) Create new file“ 

111104 PRINT'2) Load file from tape” 
11120 PRINT'S) Enter information" 

111530 PRINT"4) Search/Display/Change" 
11140 FRINT"S) Save file to tape” 

11150 PRINT"6) Stop" 

iii6éOo PRINT 

11170 INFUT"Enter choice: ",z 

11180 ON z GOSUE 20000,21000, 12000, 17008 
; 18000, 22000 

111998 wWEND 

11220 done=Q 

11210 END 


Módulo 4.1.4: Paragem do programa 


Este pequeno módulo visualiza a mensagem de finalização do programa e esta- 
belece o valor da variável DONE de modo a informar o menu de que o programa de- 
ve parar. 


Módulo 4.1.4: linhas 22000-22060 


220DB REM EIEIEIEIE IE IEIEIEIEIEIEIEIEIC ICI RICCI E E 
22010 REM Stop 

2202D REM ERREI RRERRRREERRRHA 
220392 done=-1 
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22040 CLS:LOCATE 11,13 

220580 PRINT"FIL ING SYSTEM CLOSED":FRINT: 
PRINT 

22060 RETURN 

Zz5000 OFENIN "unifile”" 

25010 INPUT t$ 

25020 PRINT t$ 

250380 GOTO 25210 


Ensaio 


Deverá agora poder introduzir: 


GOTO 1O00[ENTER] 


e obter a visualização do menu. Especifique depois a opção 6 e terá a finalização do 
programa. 


Módulo 4.1.5: Salvaguarda de dados em fita 


À medida que vai desenvolvendo programas mais complexos, quer a partir deste 
livro ou por sua própria iniciativa, notará cada vez mais o desejo de introduzir o mó- 
dulo de ficheiro de dados (DATA FILE) tão cedo quanto possível. A razão disto é 
que apenas se podem fazer ensaios convenientes do «Unificheiro» introduzindo 
quantidades bastante apreciáveis de dados. Uma vez que você pode cometer erros e 
os dados serem corrompidos, encontra-se perante a perspectiva de ter de reintroduzir 
esses mesmos dados uma vez após outra, durante o desenvolvimento do programa. 
A resposta está na gravação dos dados em fita, desde as fases mais prematuras, cha- 
mando depois as informações a partir da fita, para efectuar os seus ensaios. 

O módulo corrente permitir-lhe-á armazenar dados e iniciá-lo-á igualmente nu- 
ma ideia a que já fizemos referência, mas que, na verdade, não utilizámos: a de dar a 
um programa a capacidade de recolher ou armazenar ficheiros com uma grande va- 
riedade de nomes. 


Módulo 4.1.5: linhas 18000-18080 


199000 REM JE3E3EIEIEIEIEIEIEIEIE TETE IE IE IE IEEE IE IE IEEE 

19910 REM Save File 

18929 REM J5C3EIEIEIEIEJEIEIEDEIEIE IE IEIEIE IE IE IEEE IEEE IE 

199Z8 CLS: PRINT TAB(1Í6); "SAVE FILE":PRIN 
T TAR(iÍé6);!=========" 

189040 PRINT: INFUT"Name under which to sa 
ve: "fif 

189250 FRINT:OFENOUT fi $:PRINTHO,it:PRINT 
H9,x 
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18960 FOR i=2 TO it-i:PRINTHO,arrayéé(i): 
NEXT à 

18978 FOR i=0 TO x-1:PRINTHO,itemg(i):NE 
XT i 

189898 CLOSEOUT: RETURN 


Comentário 
Linhas 18030-18040: o nome do ficheiro é especificado interactivamente. 


Linhas 18050-18070: o número de entradas contidas no «Unificheiro» em qual- 
quer momento é armazenado na variável IT, enquanto X regista o número de itens 
em cada entrada. As linhas registam todos os elementos de utilidade a partir de 
ARRAY$ e os nomes dos cabeçalhos a partir de ITEMS. 


Módulo 4.1.6: Carregamento de dados a partir da fita 


Após termos colocado os dados em fita, a tarefa é tê-los de volta, o que não é 
tão simples como isso, porque, enquanto no momento em que os dados foram salva- 
guardados todos os quadros estavam já correctamente dimensionados para o fichei- 
ro em memória, quando um ficheiro é carregado a partir da fita todos os quadros 
devem ser estabelecidos de novo. É esta a razão pela qual as variáveis IT e X foram 
colocadas no início do ficheiro, para que possam ser lidas para a memória em pri- 
meiro lugar, sendo depois utilizadas para dimensionar os quadros exactamente do 
mesmo modo que o primeiro módulo, em que foram introduzidas pelo utilizador, 
em vez de o serem pelo gravador de dados. 


Módulo 4.1.6: linhas 21000-21140 

21DDG REM SESETEICIEIEIEIEIEIEIEIEIEIEIEIE IE IEIE IE ICI IE IE IEEE IE 

21610 REM Load File 

P1ID2D REM SESESEIEICIEIEIEIEICIEIE IE IEIEIEIEIEICIEIEIEIEIE IEEE 

21030 CLS:PRINT TAR(I6);"LOAD FILEV:PRIN 

T TAB(i6);!=========" 

210420 PRINT: INPUT"Are you sure (y/m'"i;rf 
: IF LEFT$(UPPER$(&),1)="N"º THEN RETURN 

210580 CLEAR:DIM arrays( 1900) 

21060 PRINT: INPUT"Name of file to load: 
“fis 

21070 PRINT:OPENIN fig: INPUT H9,it,x:DIM 
itemg(x-1l),ptr (x-1) 

21289 FOR i=2 TO it-i 

21098 INPUT H9,arraygti) 

21100 NEXT à 

211189 FOR i=2 TO x-i 


144 DAVID LAWRENCE E SIMON LANE 


21128 INPUT H9,itemgti) 
21138 NEXT à 
21140 in=-1:CLOSEIN:GOTO 11000 


Comentário 


Linha 21140: um certo número de pessoas podem ficar intrigadas com a presen- 
ça de um GOTO neste ponto, no final de uma sub-rotina. E não pode ser substituído 
por um RETURN, já que, no decurso do módulo, a memória foi limpa para permitir 
o redimensionamento dos quadros. Ao ser limpa a memória, todo o registo do 
comando GOSUB original se perdeu e, desta forma, RETURN apenas produziria 
uma mensagem de erro. 


Ensaio 


Execute o programa e especifique que pretende criar um novo ficheiro. Estabe- 
leça quatro itens, cujos nomes sejam UM, DOIS... etc. Quando o menu aparecer, 
escolha a opção 5 e especifique um nome de ficheiro como UNIDATA. Assegure-se 
de que a fita correcta se encontra no gravador antes de começar a gravação. Quando 
o programa regressar ao menu, faça-o parar com a opção 6 e execute-o de novo. 
Desta vez, especifique que pretende carregar a partir da fita, especifique também o 
nome do ficheiro de dados e volte a passar o ficheiro de dados sob comando (depois 
de ter rebobinado a fita, é claro). Quando o menu aparecer, faça parar o programa 
novamente. Introduza então: 


FORI=OTO X-— 1:PRINT ITEMS$(I):NEXT[ENTER] 


e o resultado deverá ser a impressão dos seus quatro cabeçalhos. 


Módulo 4.1.7: Uma forma melhor de pesquisar 


Neste módulo, e nos dois que se seguem, damos atenção à forma como uma no- 
va entrada é adicionada ao ficheiro principal, contido em ARRAY$. É aqui que se 
encontra o núcleo do método, no entanto, já que é este o módulo que permite ao 
«Unificheiro» pesquisar rapidamente através de um vasto ficheiro de entradas, pro- 
curando um local correcto para inserir uma nova entrada ou para conduzir uma pes- 
quisa rápida sobre a presença de uma entrada de tecla no ficheiro. 

Este método é conhecido por «pesquisa dicotómica» e pode ser utilizado para 
reduzir drasticamente o tempo de pesquisa em quaisquer programas que contenham 
longas listas de dados ordenados. Considere o exemplo que se segue. 

Foi estabelecido um ficheiro contendo 2000 nomes. A tarefa consiste em inserir 
um novo nome no ficheiro, pela ordem alfabética correcta. Se fizermos um pouco de 
batota e olharmos para a lista de nomes, poderemos determinar que o novo nome 
«YOUNGERS» irá inserir-se no ficheiro na posição 1731, embora o computador não 
tenha meios para saber disto antecipadamente. 

Uma coisa que é possível fazer é pôr o computador a examinar os nomes um por 
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um, desde o princípio. Assim, começará por «ADAMS», verificando que «YOUN- 
GER» deve vir depois, passará a «ADAMSON» e assim por diante. Em certa altura, 
depois de ter examinado 1732 nomes, a pesquisa dará com um nome como 
«YOUNGMAN», o qual deverá vir depois de «YOUNGER», pelo que a posição 
correcta terá sido encontrada. 

Este método é fiável, mas como seria melhor se o número de comparações feitas 
pudesse ser um pouco reduzido. Bem, no caso do nosso ficheiro de 2000 nomes, todo 
o processo pode ser efectuado com 10 comparações apenas. Eis como isso é feito. 

O computador inicia a pesquisa examinando o nome na posição 1024 do fichei- 
ro, porque 1024 é a maior potência de dois (2"10) a caber no número total de entra- 
das (2000). O nome na posição 1024 é considerado alfabeticamente menor do que 
«YOUNGER», pelo que o computador adiciona 1024/2, ou 512 ou 279, à posição de 
pesquisa original, chegando até 1536. Uma vez mais, o nome nesta posição é alfabe- 
ticamente menor que «YOUNGER», pelo que, desta vez, 256, ou 2"8, é adicionado a 
1536, perfazendo 1792. Agora, algo diferente acontece, porque o nome na posição 
1792 é posterior, pela ordem alfabética, a «YOUNGER». Assim, em vez de ser adi- 
cionado 128, ou 27, este valor é subtraído à posição de pesquisa, resultando em 
1664. 

A pesquisa prossegue, adicionando ou subtraindo decrescentes potências de 2 e 
formando um padrão de pesquisa com o seguinte aspecto: 


COMPARAÇÃO N.º POSIÇÃO ACÇÃO 
l 1024 +512 
2 1536 +256 
3 1792 — 128 
4 1644 +64 
5 1728 +32 
6 1760 — 16 
7 1744 —8 
8 1736 —4 
9 1732 —2 
10 1730 +1 


Experimente, você mesmo, com diferentes números de entradas e diferentes po- 
sições-alvo da ordem — verificará que funciona sempre. 


Módulo 4.1.7: linhas 13000-13110 

13000 REM SE IE IEIEIEIEIEIEIEIEIE IE IEIEIEIEIEILIE IEEE IL III E 
13918 REM Binary Search 

13920 REM 3 IEIEIEIEIEIEIEIEIEIEIEIEIEIEIEILIE IICT III 
1358030 IF it=0 THEN ss=B: RETURN 

15948 po=INT(LOG(it)/L06(2)):5s=2"po-i 
1352598 FOR i=po-i TO 8 STEP -1 

135060 ss=ss+2“i*x((arrayg(ss)>te$)-(array 
$(ss)<tesg)) 
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13070 IF ss<B THEN ss=0 

135080 IF ss>it-i THEN ss=it-i 

130998 NEXT i 

131020 IF arrayg(ss)<te$s THEN ss=ss+i 
131198 RETURN 


Comentário 


Linha 13030: se não houver entradas no ficheiro, os cálculos conduzirão a um 
erro. Esta linha evita tal situação. 


Linha 13040: estas duas expressões encontram a maior potência de 2 que caiba 
no número de itens do ficheiro e depois igualam o apontador de pesquisa (SS) a esse 
número. O «— 1» na segunda expressão toma nota do facto que o quadro se encon- 
tra numerado a partir de O e não a partir de 1. 


Linhas 13050-13090: este ciclo conduz a pesquisa, utilizando decrescentes ag 
cias de 2. O ficheiro principal está contido em ARRAY$ e a nova entrada em TES. O 
valor do apontador é estabelecido por duas condições lógicas, que indicam se TE$ é 
maior ou menor do que a entrada em ARRAY$(SS). 


Linha 13100: em alguns casos, a posição atingida estará 1 abaixo da posição 
correcta — neste caso, SS será aumentado em 1. 


Módulo 4.1.8: Inserção de um item 


Este módulo insere a nova entrada na posição indicada pela variável SS. Para is- 
to, apenas é necessário deslocar para a frente um lugar tudo o que estiver depois da 
posição SS. 


Módulo 4.1.8: linhas 14000-14070 

14000 REM JESESEIEIEIEIEIEIEIE TETE TETE IE TEIEIE TETE IE IE IEIE IE IEEE 
14018 REM Insert Entry 

14020 REM SESIEIEICIEIEIETEIEIEICIEIEIEIEIE DEI IEIE IEEE DIE 
14030 IF it=B THEN GOTO 14070 

14040 FOR i=it TO ss+i STEP —i 

14050 array&(i)=array&(i-i) 

14060 NEXT à 

14070 arrayf(ss)=tef:it=it+1:RETURN 
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Módulo 4.1.9: Entradas no ficheiro 


Após a introdução dos módulos que efectuam o trabalho real, podemos agora 
passar ao módulo com que o utilizador terá contacto quando colocar material no sis- 
tema de ficheiro. A função do módulo é solicitar ao utilizador a introdução do nú- 
mero correcto de itens para cada entrada, pela ordem certa, para combinar esses 
itens numa única cadeia que caiba numa linha de ARRAY$ e depois chamar os dois 
módulos anteriores, para inserir a entrada no ficheiro principal. 


Módulo 4.1.9: linhas 12000-12320 


12000 REM SEM IEIEIEIEIEIEIEIEIE TESE IEIEIEIEIEIE TE IEEE IEEE 
120102 REM New Entries 

IÍZB2A REM SESEDESEIEIEILIEIEIEICICIEICIE IEEE RAR 
12030 WHILE it<1i000 

12040 tet="" 

12050 CLS 

12060 PRINT TAR(15S):;"NEW ENTRIES" 

12070 PRINT TAR(1S);t===========" 

12080 PRINT 

12090 PRINT"Entry number "zit+i 

12190 FRINT 

12110 PRINT'COMMANDS AVAILABLE: " 

12128 PRINT 

12138 PRINT"Enter item specified" 

12140 PRINT"'Nº to return to main menu" 
12150 PRINT 

12220 FOR i=B TO x-i 

12230 PRINT itemg(id;: INFUTO:",gf 

12240 IF qf="1" THEN RETURN 

12250 tes=tesS+UFPERE (qé)+"N” 

122690 NEXT i 

12270 FRINT:PRINT"Please wait for a mome 
oh SE as 

12280 GOSUB 13000: GOSUB 14089 

122998 WEND 

123080 CLS 

12310 PRINT'a*** SORRY, NO MORE ENTRIES PF 
OSSIBLE wxwx' 

123528 FOR i=i TO 28000:NEXT i:RETURN 


Comentário 


Linhas 12030 e 12290-12320: as entradas apenas serão aceites se houver espaço 
para elas. Caso contrário, será gerada uma mensagem de erro. Note que, se preten- 
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der alterar o número máximo de entradas, precisará de mudar esta referência para 
1000 — poderia ser substituída por uma variável, desde que você se lembre de definir 
essa variável quando o programa for inicializado, e de a salvaguardar quando for ar- 
mazenado um determinado ficheiro. 


Linhas 12220-12260: são estas as linhas que pedem a introdução dos itens indivi- 
duais para a nova entrada. O nome para cada item é retirado do quadro ITEMS, o 
qual foi estabelecido no módulo de inicialização. Cada item será introduzido sob o 
nome Q$ e a entrada de novos itens terminará se Q$ se transformar em «, », em 
qualquer momento. Se a entrada não for « », o item será adicionado a TE$, que 
conterá toda a entrada, sendo acrescentado um carácter « N » ao final do item. O ob- 
jectivo do carácter « | » não tem rigorosamente nada a ver com a sua anterior utili- 
dade de terminar a entrada de informação; ele apenas se encontra lá como indicador 
para partes posteriores do programa de onde cada item termina e onde o item seguin- 
te começa. Assim, uma entrada como 


SMITH 

JOHN 

11 ANYSTREET 
ANYTOWN 


seria armazenada no quadro ARRAY$ como: 


SMITHNJOHNN11 ANYSTREETXANYTOWNN 


criando aquilo que se conhece por «cadeia condensada». A razão para a escolha de 
«N» é a pouca probabilidade da existência de alguma razão urgente pela qual al- 
guém desejasse vê-lo incluído numa entrada — se, no entanto, desejar incluí-lo, es- 
colha outro carácter separador. Note que todos os itens introduzidos são traduzidos 
em maiúsculas. Mais tarde, verá que o mesmo acontece quando se faz a pesquisa dos 
itens no ficheiro. Isto evita que, inadvertidamente, a entrada de letras maiúsculas ou 
minúsculas torne difícil encontrar um item no ficheiro. Se precisar obrigatoriamente 
de utilizar maiúsculas e minúsculas conjuntamente, então estas provisões podem ser 
retiradas sem transtorno para a operatividade do programa, embora você deva estar 
informado de que o 464 considera qualquer letra minúscula como posterior, alfabeti- 
camente, a uma letra maiúscula, o que pode tornar a ordem do seu ficheiro bastante 
estranha. 


Ensaio 


Estamos agora em posição de ensaiar os últimos três módulos introduzidos. 
Execute o programa e estabeleça um ficheiro com dois itens por entrada, denomina- 
dos «ONE» e «TWO» (um e dois). Quando terminar a inicialização do programa e 
passar ao menu principal, especifique a opção 3. Será agora confrontado com a vi- 
sualização criada pelo corrente módulo e solicitado a introduzir o item «ONE». In- 
troduza «AAl». A solicitação repetir-se-á para «TWO» e você deverá introduzir 
«AA2». Repita o processo para «DDI», «DD2», «CCl», «CC2», «BBl», «BB2», 
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em solicitações sucessivas. Introduza agora « N » e regressará ao menu principal. Se- 
leccione a opção 6 para parar o programa. Introduza agora: 


FORI=0TO3:? ARRAY$(I):NEXT[ENTER] 
e deverá ver: 


AAINAAZ 
BBINBB2 

CCcINCC2 
DDIADD2 


Se tudo funcionou correctamente, talvez deseje começar de novo o programa 
com GOTO 10000, utilizando a opção 3 do menu para armazenar os dados coloca- 
dos em fita. Isto tornará os ensaios subsequentes menos fatigantes. 


Módulo 4.1.10: Identificação de itens numa só entrada 


Antes de podermos passar aos módulos que permitem a retirada de dados do fi- 
cheiro e sua manipulação, precisamos de introduzir este, cuja tarefa é pesquisar atra- 
vés de uma entrada e registar a posição de cada carácter « | », ou, melhor, o fim de 
cada item da entrada. Os valores são armazenados no quadro PTR e relacionar-se-ão 
apenas com a entrada corrente. Quando for necessária outra entrada, este módulo 
terá de ser chamado novamente, para analisar. 


Módulo 4.1.10: linhas 19000-19080 


190DO REM SEIEIEIEICIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEICIEIE IE IEA 
19010 REM Analyse Record 

19020 REM JESSE IEICIEICIEIEIEIEIEIEIEIEIEIEIEIEIEICILICILICIC II 
192702 pp=Q2 

19040 FOR i=92 TO x-1i 

i9D50 ptr (1)=INSTR(pp+l,arrayE(si),UN") 
19252 pp=ptr ti) 

19070 NEXT i 

i9080 RETURN 


Comentário 


Linha 19050: além do módulo de pesquisa dicotómica, em que a variável SS é 
utilizada para indicar a entrega que estiver a ser examinada, o résto do programa faz 
uso da variável Sl para registar, em ARRAYS$, a posição da entrada corrente. O efei- 
to desta linha consiste em procurar cada ocorrência do carácter « », começando 
um carácter depois do local onde o último foi encontrado. 
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Módulo 4.1.11: Pesquisa de itens no ficheiro 


Podemos agora passar ao módulo que torna o programa útil, permitindo a reco- 
lha dos dados que foram armazenados. O corrente módulo permitirá a recolha de en- 
tradas, segundo um de quatro métodos: 


1) Um por um, ordenadamente, a partir da posição corrente. 

2) Saltando para a frente, ou para trás, um número especificado de itens. 

3) Introduzindo um item-chave — o primeiro item da entrada — para uma 
pesquisa rápida. 

4) Procurando qualquer ocorrência de uma combinação de caracteres, on- 
de quer que ela se encontre dentro de uma entrada. 


Módulo 4.1.11: linhas 17000-17430 


17007 REM MICIEICIEIEICIEIEIEIEILIE IE IEIEICIE IE IEIEIE ICE IE IEIEIE A 
17019 REM Search 

17020 REM JSESESEIEIEICIEIEIEIEIEIE TE IEIEIEIEIEIEIE IE ICI IEEE 
17030 s1=9:CLS:PRINT TAB(17):;"SEARCH":PR 
INT TAB(17);'"======": PRINT 

17040 IF it=0 THEN PRINT'X** NO DATA ENT 
ERRED YET +*x*" ELSE GOTO 17070 

17050 FOR i=i TO 2000:NEXT à 

17260 RETURN 

17070 PRINT"COMMANDS AVAILABLE: ” 

170809 PRINT:PRINT"Input item for normal 
search" 

17098 PRINT"Precede with “x” for initial: 
search" 

17100 PEN 2:PRINT'"ENTER": 

171198 FEN 1:FRINT" for first item on fil 
a! 

17120 teft="":PRINT: INPUT" Input search co 
mmand: " tes: tes=UPPERS$ (tes) 

Í71Z0 IF LEFT$S(tes,1)="*" THEN teF=MIDE( 
tef,2):GOSUB 13000: tes="":si=ss 

17140 ps="C":WHILE p$="C" 

17150 IF teg="" THEN GOTO 17210 

17160 ff=B:FOR i=si TO it-i 

17170 pp=INSTR(arrayé(i),teg) 

17180 IF ppé>B THEN ff=l:sl=izi=it-l 
17190 NEXT à 

7200 IF ff=B THEN RETURN 

i72iQ pé="" 
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17220 WHILE p$="" AND it>a 

17230 IF sizit-i THEN si=zit-i 

17240 IF si<Q THEN si=0 

17258 GOSUE i99004 

172690 CLS:PRINT"ENTRY "isl+1;":":PRINT:p 
p=8 

17270 FOR i=0 TO x-i 

17280 PRINT itemf(i);":";MID$&(arrayf(s1) 
spPpti,ptr (i)-pp-1) 

17290 pp=ptr (i):NEXT à 

17300 PRINT:PRINT"COMMANDS AVAILABLE: " 
17310 PRINT:PEN 2: PRINT"ENTER";:PEN 1:FR 
INT" for next item" 

17Z22 PRINT"'A* to amend" 

iZEZ0 FRINT"'C' to continue search” 
17340 PRINT"C&" followed by number to mo 
ve pointer" 

17350 PRINT"'N* to quit function" 

17560 PRINT: INFUT"Enter Choice: ",pf 
17570 p$=UFPERS$ (p$): IF pf="" OR p$="C" T 
HEN si=sli+i 

17380 IF pf="C" THEN GOTO 17429 

17590 IF pt="A" THEN GOSUE 15000:pt="" 
17400 IF LEFT$S(p$,1)="4" THEN si=si+VAL( 
MIDS(p&,2)):pf="" 

17410 wEND 

17420 WEND 

17430 RETURN 


Comentário 


Linha 17030: Sl, como foi mencionado no comentário ao último módulo, é o 
apontador da entrada corrente, começando em O de cada vez que for iniciada uma 
pesquisa. 


Linhas 17040-17060: é gerada uma mensagem de erro se não tiverem sido ainda 
colocados itens no ficheiro. 


Linhas 17070-17120: este é o menu de arranque do módulo de pesquisa, que 
apenas será visto uma vez por cada pesquisa, quando se começa. Utilizando este me- 
nu, especifica-se o tipo de pesquisa a fazer — se desejar modificar o tipo de pesqui- 
sa, será necessário abandonar a corrente pesquisa e recomeçar com este menu. O ter- 
mo «NORMAL SEARCH» (pesquisa normal) indica uma pesquisa de uma dada 
combinação de caracteres — a primeira entrada retornada será a primeira do ficheiro 
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que contenha esses caracteres, em qualquer posição. «INITIAL SEARCH» (pesqui- 
sa inicial) refere-se a uma pesquisa de uma entrada que comece com a combinação de 
caracteres especificada pelo utilizador. Assim, a introdução de «*SMI» resultaria na 
descoberta de uma entrada começada pelas letras SMI, embora não necessariamente 
a primeira. Se a cadeia especificada não estiver presente no início de qualquer entra- 
da, a entrada retornada será a que ocupe o local onde seria inserida, caso fosse intro- 
duzida como uma nova entrada. 

Quer a pesquisa normal quer a inicial podem estender-se a mais de um item em 
cada entrada, incluindo um carácter «  » na cadeia a ser pesquisada. Utilizando esta 
técnica num ficheiro em que o primeiro item de cada entrada fosse um sobrenome e 
o segundo item um primeiro nome, uma pesquisa inicial de «SMITH» «A» faria 
aparecer um qualquer SMITH com a inicial «A», embora, de novo, não necessaria- 
mente o primeiro. 

Numa pesquisa normal, se a cadeia especificada não for encontrada em qual- 
quer das entradas do ficheiro, a execução do programa regressará ao menu principal 
do programa. 


Linha 17130: esta linha faz todo o trabalho necessário a uma «pesquisa inicial» 
retirando o asterisco inicial e chamando, simplesmente, o módulo de pesquisa dico- 
tómica para encontrar a posição correcta. 


Linhas 17140-17420: o ciclo principal, que repetirá uma pesquisa normal se o 
utilizador assim o pedir, num menu posterior. Note que a rotina de pesquisa inicial 
não cai no âmbito deste ciclo, uma vez que não há vantagem em repetir uma pesqui- 
sa inicial — o resultado será sempre a mesma entrada. 


Linhas 17150-17210: neste ponto da execução do módulo, qualquer entrada de 
dados deverá corresponder a uma cadeia a ser pesquisada, utilizando a pesquisa nor- 
mal. Isto é feito de forma muito simples, através da análise da entrada utilizando 
INSTR. Se for encontrado um item, a variável FF passará a 1, para indicar isso mes- 
mo. A posição será registada em Sl e então, a variável de ciclo, I, será regulada para 
o seu valor mais elevado, para que o ciclo termine. 


Linhas 17220-17410: este ciclo continuará até que P$, a entrada de dados no me- 
nu de pesquisa subsequente, permaneça numa «cadeia nula». A razão por que o va- 
lor de IT tem de ser incluído na condição para o ciclo, é que, dentro deste ciclo, ha- 
verá provisão para o apagamento de itens. Se todos os itens forem apagados, preci- 
saremos de sair do ciclo, ou gerar-se-á um erro. 


Linhas 17230-17240: dentro do ciclo, o utilizador tem a opção de se deslocar 
através do ficheiro por números — estas linhas verificam se, em subsequentes passa- 
gens pelo ciclo, o apontador não foi deslocado para fora do conjunto válido do nú- 
mero corrente de entradas. 


Linhas 17250-17290: após a chamada do módulo anterior, estas linhas fazem 
uso da informação acerca da posição dos caracteres de separação para imprimir os 
itens que constituem a entrada corrente, juntamente com o título do item. Por cada 
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passagem pelo ciclo FOR, são impressos caracteres com uma posição entre o valor 
da variável PP e um valor contido no quadro PTR. Quando cada lote de caracteres 
tiver sido impresso, PP passará ao valor corrente no quadro PTR e a variável de ci- 
clo, I, recolherá em PTR o valor seguinte. 


Linhas 17300-17360: trata-se do menu que aparece quando uma entrada é visua- 
lizada. O utilizador tem a opção de passar à entrada seguinte, de chamar a função 
«AMEND» (correcção) (ainda não introduzida), de continuar a procurar a cadeia 
anteriormente especificada, de se deslocar no ficheiro uma quantidade especificada 
de entradas ou de regressar ao menu principal do programa. 


Linhas 17370-17380: estas duas linhas dizem respeito aos ciclos que se iniciam 
nas linhas 17140 e 17220. Se a introdução de dados constituir uma «cadeia nula» (is- 
to é, se ENTER for premido), então o ciclo da linha 17220 será repetido, imprimindo 
a entrada seguinte indicada por Sl. Se «C» for introduzido, o ciclo da linha 17140 
executará novamente a pesquisa, começando na entrada seguinte. 


Linha 17390: é a função AMEND, que ainda não foi introduzida. 


Linha 17400: a introdução de um número, precedida do sinal « &», permite ao 
utilizador avançar ou recuar no ficheiro. A passagem de P$ a uma cadeia nula ape- 
nas executa o ciclo da linha 17220, imprimindo a entrada alcançada. 


Ensaio 


Se salvaguardou previamente a série de quatro entradas feita em ensaios anterio- 
res, execute o programa e volte a carregar as entradas. Especifique a opção 4 do me- 
nu principal e, então, quando o menu de pesquisa aparecer, passe revista às entradas 
premindo ENTER. Cada entrada deverá ser visualizada em duas linhas, com o nome 
de item apropriado. Por exemplo: 


ONE: AAlÍ 
TWO: AA2 


Ao atingir a quarta entrada, deverá descobrir que não pode ir mais além utili- 
zando ENTER. Introduza agora «& — 1» e deverá regressar à entrada 3. Continue a 
regredir — verificará que também não pode sair do princípio do ficheiro. 


Introduza «  » para regressar ao menu principal e volte a especificar a opção 4. 
Desta vez, responda ao menu de pesquisa inicial com «CC». A entrada 3 deverá ser 
visualizada — a única a conter os caracteres «CC». Encontramo-nos agora no segun- 
do menu de pesquisa, pelo que deve introduzir «C» para prosseguir a pesquisa, 
encontrando-se depois de volta ao menu principal. 

Uma vez mais, escolha a opção 4, introduzindo, desta feita, «2» com alvo de 
pesquisa. Deverá aparecer a entrada 1, uma vez que contém o carácter «2». Introdu- 
za «C» para continuar a pesquisa e deverá ser impressa a entrada 2 — que contém 
igualmente o carácter 2. Continue a introduzir« C», até que todas as quatro entradas 
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tenham sido visualizadas e a pesquisa falhe, fazendo regressar o utilizador ao menu 
principal. 

Finalmente, escolha a opção 4 a partir do menu principal e introduza «*B» co- 
mo alvo de pesquisa. A entrada 2 deverá ser visualizada — sendo a única entrada a 
começar com «B». Introduza « N » para regressar ao menu principal e terminar de- 
pois o programa. 

Tem agora ensaiadas todas as funções de pesquisa. 


Módulo 4.1.12: Apagamento de entradas 


Os retoques finais ao programa são adicionados pelos dois módulos seguintes, 
que permitem a alteração e o apagamento de entradas. O módulo DELETE é adicio- 
nado primeiro, já que é utilizado sempre que uma entrada é alterada. 


Módulo 4.1.12: Linhas 16000-16040 
16000 REM dE3EIIEIEIEIEDEIEIEIEIEIEIEIEIEIE ICI III IEEE IE 


i6010 REM Delete Item 
16020 REM EXRFEREEERERLELEREEERERERS RR 


160Z2 FOR a TO it-l:zarray$t(tj)=arravéét 
j+1)5:NEXT 
16040 it= jte I:RETURN 


Comentário 


Linhas 16030-16040: para conseguir o apagamento basta começar no princípio 
da entrada acima daquela que vai ser apagada, copiando aquela para um espaço 
abaixo. Quando cada entrada tiver sido deslocada, a contagem dos itens será reduzi- 
da em 1. 


Ensaio 


Execute o programa e volte a carregar os quatro itens a partir da fita. Especifi- 
que a opção 4 para parar o programa. Introduza agora: 


S1=0O[ENTER] 
GOTO 16000 


O programa deverá parar com um erro «Unexpected RETURN». Introduza: 
GOTO 11000[ENTER] 


e chame depois a opção de pesquisa. Deverá verificar que a entrada AAI  AA2 de- 
sapareceu do ficheiro. 
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Módulo 4.1.13: Alteração de entradas 


O programa teria uma utilidade limitada para nós se não pudéssemos alterar da- 
dos existentes — este módulo preenche essa lacuna. 


Módulo 4.1.13: linhas 15000-15190 

1ISDOD REM SESEIMIEICICIEIEIEIEIE IE IEIEIE IE IEEE ICIEIEIEIEILIL EI 
15010 REM Change Entry 

ÍSD2D REM SEMSEIIEIEIE IEEE IEEE IE IE IEIEIEIEIEIC ICI III II 
15030 teft="":pp=Q 

159040 FOR i=2 TO x-—i 

15050 CLS:FRINT"Entry "ssl+iglo” 

15060 PRINT:PRINT item$(i);":";MID$(arra 
y$(si),pp+i,ptr (i)-pp-i) 

15070 PRINT:PRINT"COMMANDS AVAILABLE: " 
15080 PRINT:PEN 2:PRINT"ENTER"; 

15090 PEN i:zPRINT" leaves item unchanged 
15100 PRINT" Input new item to replace on 
e shown” 

15110 PRINT"'AD' deletes whole entry" 
151280 PRINT"'N* leaves whole entry uncha 
nged” 

15132 PRINT: INFUT"Which do you require: 
“sq% 

15142 qs=UPPERS (gg): IF q$="AD" THEN GOSU 
E 1609200: RETURN 

15150 IF q$="N" THEN RETURN 

15160 IF q$<>"" THEN qft=q8+"N" 

15170 IF qf="" THEN q$=MID$(arrayz(si),p 
p+i,ptr (i)-pp) 

151892 pp=ptr (i):tes=tet+qf: NEXT i:GOSUB 
164090: GOSUE 13000 

151904 si=ss: GOSUB 149020: RETURN 


Comentário 
Linhas 15040-15180: este ciclo, embora seja muito semelhante ao ciclo que im- 
prime as entradas, no módulo 4.1.8, difere deste na medida em que imprime apenas 


um item de cada vez. 


Linha 15140: a introdução de «  D» quando um item é visualizado apaga toda 
a entrada de que esse item faz parte — note que um item individual não pode sim- 
plesmente ser apagado, já que o número de itens por entrada é fixo. 


156 DAVID LAWRENCE E SIMON LANE 


Linha 15150: a introdução de « N », em resposta a qualquer item, resulta no re- 
torno da execução ao módulo de pesquisa. Quaisquer alterações feitas aos itens ante- 
riores da entrada serão ignoradas, permanecendo a entrada inalterada. 


Linha 15160: se for feita outra introdução, que não «N D» ou «N », então ela 
será interpretada como uma substituição do item visualizado. O separador «N » é 
adicionado ao final do item, tal como no módulo dos novos itens. 


Linha 15170: ao premir-se ENTER, sem uma entrada de dados, copiar-se-á o 
item visualizado, sem alterações. Se apenas um item dever ser alterado, bastará pre- 
mir ENTER para todos os outros. Note a diferença entre a expressão de cadeia aqui 
e aquela que foi utilizada para imprimir o item, na linha 15060. O «— 1» no final é 
largado, para que o carácter separador « N » não seja eliminado. 


Linhas 15180-15190: a entrada corrigida é construída em TE$. Quando a entra- 
da estiver completa, a entrada original será apagada do ficheiro. A razão para isto 
está em que as alterações feitas podem ter alterado a posição correcta da entrada no 
ficheiro ordenado. Uma vez apagada, a entrada é enviada para o módulo de pesquisa 
dicotómica e reinserido, tendo a sua posição no ficheiro sido copiada para a variável 
S1, de modo que o módulo de pesquisa saiba qual o item que deve visualizar, se a 
posição tiver sido alterada. 


Ensaio 


Execute o programa e volte a carregar os quatro itens de dados a partir da fita. 
Chame a opção de pesquisa e prima ENTER para obter a visualização da entrada 1. 
Introduza agora «A», em resposta ao segundo menu de pesquisa. Deverá obter a vi- 
sualização do primeiro item, «AAl», juntamente com o menu AMEND (correcção). 
Introduza «AAAl» e, quando o segundo item for visualizado, prima ENTER. Deve- 
rá agora ter retornado ao módulo de pesquisa e a entrada deverá ser visualizada 
como: 


ONE: AAAIÍ 
TWO: AA2 


Experimente fazer outras alterações e apagar entradas. 


PROGRAMA 4.2: NNÚMERO 
Função do programa 


Nem tudo o que diz respeito aos ficheiros se relaciona com palavras. Uma das 
coisas que os microcomputadores fazem melhor é armazenar e manipular valores. O 
corrente programa, «NNúmero» (abreviatura de «Nome e Número»), permite ao 
utilizador armazenar os nomes de itens, as unidades em que eles são geralmente me- 
didos e uma quantidade associada. Assim, antes que você diga que não vê utilidade 
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para um tal programa, imagine o vulgar encarregado de uma loja, ou mesmo a cozi- 
nheira doméstica. 

O encarregado tem uma quantidade de itens chamados «stock». Todos os itens 
que o compõem têm nomes, chegam em diferentes unidades (caixas, garrafas, sacos, 
etc.) e todos têm uma quantia muito importante associada — o preço. Para se fazer, 
portanto, que um microcomputador ajude na aquisição de stocks ou emita uma fac- 
tura, deve lembrar-se destes três factos acerca de cada item. No lar, todos e cada um 
dos alimentos que comemos têm um nome, apresentam-se em diferentes unidades 
(colheres, quilos, mão-cheias, etc.) e, se estivermos interessados no seu efeito sobre o 
nosso peso, todos eles têm associada uma quantidade, conhecida por «calorias». 

Estes são apenas dois exemplos — muitos mais você pode descobrir, respeitando 
à importância de poder registar nomes, unidades e quantia associada, para toda uma 
variedade de itens. 

O objectivo de «Nnúmero» é permitir-lhe criar um dicionário de itens — até um 
máximo de 200 —, juntamente com as unidades em que são medidos e os valores as- 
sociados a essas unidades. Com base nesse dicionário, você poderá construir listas de 
itens que o programa visualizará, encontrando o total das quantidades. O «Nnúme- 
ro» é tão fácil de utilizar na adição das calorias das receitas de um dia, como o é no 
fornecimento de um preço total para um conjunto de bens. 


Módulo 4.2.1: Inicialização 


Trata-se de um módulo normal, sendo a única coisa digna de nota o facto de o 
utilizador ser solicitado a especificar o tipo de item com que o programa irá traba- 
lhar, o qual poderá ser um nome como «Item de alimento» ou «Item de stock». A 
frase introduzida será usada no decurso do programa para solicitar ao utilizador a 
introdução de outro item. 


Módulo 4.2.1: linhas 10000-10090 


1IZODD REM 6363633 3EIEIEIEIE IE IE IE IE IE DEDE IE IE IE IE IE TETE ICI IE IEEE 

10010 REM Initialise 

1IDB20B REM 353 IEIEIEIE IE IE IE IE IE IE IE IE IEIEIE IE IE IE IE IE IE IEEE 

12030 MODE 1 

19040 DIM array$(1000,1) array (1000) tes 
(100,1) ,te(l99) : cu=Q : it=0 

12050 PEN 2:PRINT TAB(17) 5 PINNUMBER” PRIN 


190260 WINDOW 1,40,4,25 

19970 PEN 1 

19980 INPUT "Load from tape (y/n)";qs 
190998 IF LOWER$(q$)="y” THEN GOSUB 22000 
ELSE PRINT: INPUT “Overall name for item 
s:"nn$g 


158 DAVID LAWRENCE E SIMON LANE 


NNUMBER 


ITEM:GROMMETTS 
Units:3 BOX 
Quantity: 8.97 


——— — —— —- — — — — e —- —- — — —- — —- — —- — 


ITEM:FLANGES 
Units:;11 BOX 
Quantity: 292.49 


Units:6 BAG 
Quantity: 78.5 


ITEM: DONGL 
Units:;35 P 
Quantity: 


Total: 549.91 


Ary key to return to menu 


Fig. 4.2 — «Nnúmero» em modo de listagem corrente 


Comentário 


Linha 10040: o quadro ARRAY$ é utilizado para registar o nome do item e o 
nome de unidade de cada um dos itens do dicionário. A unidade associada a cada 
unidade é armazenada no elemento equivalente do quadro ARRAY. 

TES$ e TE terão um objectivo semelhante aa ARRAY$ e ARRAY, embora rela- 
cionado com a «listagem corrente» extraída do dicionário. A variável CU registará o 
número de itens da «listagem corrente» — a listagem derivada do dicionário princi- 
pal. IT, tal como na maioria dos programas do livro, regista o número de itens do fi- 
cheiro principal — neste caso o dicionário. 


Módulo 4.2.2: «Menu» 


Trata-se de um módulo de menu normal, sendo a única diferença em relação aos 
programas anteriores a forma como a linha 11160 evita o acesso a certas funções do 
programa, antes da introdução de quaisquer dados — ainda que esta facilidade não 
possa ser utilizada até o próximo módulo ser introduzido. 


Módulo 4.2.2: linhas 11000-11210 

1IDOD REM 3336 DE TE IEEE IE TETE IE IEEE IE IE IE TETE IE IE TETE IE IEEE 
11018 REM Main Menu 

11D2D REM III TETE IEIEIE IE IE IE IE IE TETE IE IE IE IEEE III II IEEE 
11030 WHILE z<>8 

11240 CLS 

11050 PRINT"COMMANDS AVAILABLE: " 
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i1d60 
11970 
11980 
11290 
11100 


11110 
11120 
111308 
11140 
111508 
11160 


PRINT 

PRINT "1) Display current list" 
PRINT "2) Input to current list” 
PRINT "3) Start new current list” 
PRINT "4) Delete from current list 


PRINT "5) Add to dictionary" 
PRINT "6) Examine dictionary items 


PRINT "7) Save data to tape” 

PRINT "B) Stop" 

PRINT: INPUT"Enter choice:",z 

IF (z=1i OR z=2 OR z=4 OR z=6 OR z= 


7) AND it=D THEN x$=" xxx NO DA 
TA YET xxxxxesxex": GOSUB 23000: z=0 


11170 


ON z GOSUE 12000, 1 35000, 14000, 22000 


, 15000, 18000, 21000 


11180 
11190 
11200 
ATED" 
11210 


WEND 
CLS 
LOCATE 11,11:PRINT "PROGRAM TERMIN 


END 


Módulo 4.2.3: Mensagens de erro 


Este pequeno módulo pode proporcionar uma útil poupança de memória, se um 
programa for capaz de gerar uma variedade de mensagens de erro para o utilizador. 
Tudo o que o módulo faz é imprimir uma cadeia designada X$, emitir um «bip» e re- 
tornar ao local a partir do qual foi chamado. Se examinar a linha 11160, verá que, 
para chamar o módulo, X$ é definida e emitido depois um comando GOSUB. 


Módulo 4.2.3: linhas 23000-23070 


23200 
25810 
235020 
23030 
23040 
23050 
23060 
23070 


REM SEE SEDE IE IE SEDE IE IE DEDE IE IEIEIE DESTE IE IE IE IEEE IEEE EEE 
REM Error 

REM 636 SEE IE IE IE IE IE IE IE IE IE IE IE IE IE IE IE IEEE IE IEEE IEEE 
PRINT:PRINT x$ 

SOUND 1,1000,100 

FOR i=i TO 1500 

NEXT i 

RETURN 
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Ensaio 


Execute o programa e responda apropriadamente às solicitações. Quando for al- 
cançado o menu, especifique a opção 1 e deverá obter a mensagem de erro que assi- 
nala a inexistência, por enquanto, de dados em memória. 


Módulos 4.2.4 e 4.2.5: Ficheiros de dados 
São dois módulos normais. 


Módulos 4.2.4 e 4.2.5: linhas 21000-22210 


Z1IDDB REM 33 IEIEIEIEIEIEIE IE TETE TETE IE IE IE IE IE DE IE IE IEEE IE IE IE 
21010 REM Save To Tape 

21D2B REM JEJEICIEIEICILIE IE IEIE IE IE TETE IE IE IE IE IEEE IEEE IEEE 
21030 CLS 

21040 PRINT "Save data: '":PRINT 

21050 INPUT “Name of file:",files 

21068 OPENOUT files 

21070 PRINT 49,nn$ 

210880 PRINT H49,cu 

21090 PRINT 49,it 

21100 FOR i=B TO cu-i 

21110 PRINT H9,te$(i,O) 

21120 PRINT H9,tes$(i,l1) 

21130 PRINT H9,tetli) 

21140 NEXT i 

211580 FOR i=0 TO it-—i 

21160 PRINT H9,arrays$(i,D) 

21170 PRINT H9,array$ti,l) 

21180 PRINT H9,arrayti) 

211992 NEXT à 

21208 CLOSEOUT 

212180 RETURN 

22000 REM SS IE TETE TETE IEEE DEDE IE IE IE IEEE ICI IE EI 
22010 REM Load From Tape 

22020 REM 3 IEIEIEIEIEIEIE DEDE TETE IE IE IE IDE DEDE IE IE DEI DE IEEE 
22030 CLS 

22040 PRINT “Load data: ":FRINT 

22050 INPUT "Name of file:",filef 

22060 OPENIN files 

22070 INPUT H9,nn$ 

22088 INPUT H9,cu 

22090 INPUT H9,it 
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22100 FOR i=8 TO cu-i 
221108 INPUT H9,te$ft(i,B) 
22120 INPUT H9,tef(i,l) 
22130 INPUT H9,teti) 

22140 NEXT à 

22150 FOR i=0 TO it-i 
221608 INPUT H9,array$t(i,0B) 
22170 INPUT H9,array$gti,l) 
22180 INPUT H9,arrayti) 
22190 NEXT i 

22200 CLOSEIN 

22210 RETURN 


Módulo 4.2.6: Pesquisa dicotómica 


Para um comentário completo sobre este módulo, veja o módulo equivalente, 
no «Unificheiro». A única coisa a salientar acerca do módulo é que a selecção é feita 
na base do nome do item na coluna zero de ARRAYS. 


Módulo 4.2.6: linhas 16000-16110 


16BDD REM HIEI IEIEIEIEIEIEIEIEIEIEIEIEIEICILIEIE II RIR TE 
16010 REM Binary Search 

16D20 REMAJJEJEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEICIEI IEEE IEEE 
16030 IF it=Q0 THEN ss=B: RETURN 

160480 po=INT(LOG(it)/L06(2)):ss=2”po-1 
169050 FOR i=po TO Q STEP -1 

16060 ss=ss+2"i*((array$(ss,0)>ti$)-(arr 
ay$(ss,D)<t1i$s)) 

16070 IF ss<B THEN ss=0 

16080 IF ss>it-i THEN ss=it-i 

16090 NEXT i 

16100 IF array$(ss,B)<t1i$ THEN ss=ss+1 
16118 RETURN 


Módulo 4.2.7: Inserção de itens no dicionário principal 


O princípio deste módulo é exactamente o mesmo do módulo paralelo, no «Uni- 
ficheiro». A razão por que este módulo é ligeiramente mais longo é porque tem de 
inserir duas cadeias e um número nos dois quadros, em vez de uma só cadeia. 


Módulo 4.2.7: linhas 17000-17110 
17000 REM IEIEIEIEIEIEIEIEIEIE TETE IEEE IE IEEE IE IE IE 
179104 REM Insert Item 
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17020 REM 3563653633 IEIEIE DEI IE IE IE IE IE TETE IE IE IE IE IEEE IE 
170380 FOR i=it TO ss+i STEP -1 

17040 array$(i,B)=array$(i-i,08) 

17050 array$(i,l)=arrays$(i-i,1) 

17060 array(i)=array(ti-l) 

17070 NEXT i 

17080 arrayg(ss,B)=tis 

17090 arrayg(ss,1i)=t2$ 

17108 array (ss)=nn 

17118 RETURN 


Módulo 4.2.8: Introdução de itens no dicionário 


Consideravelmente menos complicado do que o módulo equivalente, no «Unifi- 
cheiro», este módulo aceita três introduções do utilizador: a) o nome do item, b) o 
nome das unidades em que é medido e c) a quantidade associada a essas unidades. 


Módulo 4.2.8: linhas 15000-15170 


15000 REM 36 363€3E3E3E3E3EJEIEIEIE IE IE IEIE IE IE DEDE IEEE IE IEEE IE 
15910 REM Extend Dictionary 

15028 REM 36 363E3E3E3EIEIEIEIEIEIEIEIE IE IE IE IEEE TETE IE IEEE IE IE 
15030 WHILE 1 


15940 CLS 

15050 PRINT "New items for dictionary:": 
PRINT 

15060 IF it>1000 THEN x$=" JEIEIEIEIPIE ICI 


NO MORE ROOM sxsxses et": GOSUB 23909: RETU 
RN 

15070 qf="":WHILE LOWER$ (qf)<>"y” 

15088 PRINT nng;: INPUT " (name or “Nº to 
quit):",tis 

15090 IF ti$="1" THEN RETURN 

15100 PRINT "Units"; : INPUT "2", t2$ 

15110 PRINT "Quantity per ";LOWERS$(t2$); 
:INPUT “:“snn 

15128 PRINT: INPUT "Are these correct (y/ 
mm "sq$: PRINT 

15138 WEND 

15140 GOSUB 1ADDB 

15150 GOSUB 17000 

15160 it=it+i 

15170 WEND 
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Ensaio 


Ao fim de bastante tempo, torna-se possível fazer um verdadeiro ensaio do que 
foi introduzido até aqui. 

Execute o programa, especifique que não está a carregar a partir da fita e forne- 
ça o nome ITEM em resposta à solicitação para um nome genérico. No menu princi- 
pal, escolha a opção 5, «Extend Dictionary» (aumentar o dicionário). Quando o 
ecran «new items» (novos itens) aparecer, introduza as seguintes três entradas: 


THING1I/BOX/10 
THING2/BOTTLE/20 
THING3/BAG/40 


Estes itens não têm qualquer significado especial, apenas servem objectivos de 
ensaio. 

Quando tiver introduzido os itens, retorne ao menu principal introduzindo 
«N ». Chame agora o módulo do ficheiro de dados (opção 7) para armazenar a in- 
formação. Pare o programa com a opção de menu 8 e introduza: 


FOR I=0TO 2:7?ARRAY$(1,0),ARRAY$(1,1),ARRAY(I):NEXT 
[ENTER] 


Deverá ver o seguinte: 


THINGI BOX 10 
THING2 BOTTLE 20 
THING3 BAG 40 


Execute agora o programa e especifique que quer carregar a partir da fita. Dê o 
nome que forneceu aquando do armazenamento dos dados. Quando a fita tiver ter- 
minado, deverá poder executar o mesmo ensaio do conteúdo dos quadros, com o 
mesmo resultado. 


Módulo 4.2.9: A rotina de pesquisa 


Tal como no «Unificheiro», este módulo proporciona ao utilizador a oportuni- 
dade de se deslocar através do ficheiro de itens do dicionário, pesquisando designa- 
dos itens ou apagando itens do ficheiro. O módulo é mais simples do que o que foi 
dado para o «Unificheiro», já que está concebido para pesquisar apenas itens gerais, 
em vez de combinações de caracteres armazenados algures num item. Para além dis- 
to, a estrutura de uma entrada completa em «Nnúmero» é bastante mais simples do 
que a estrutura de um item no quadro principal do «Unificheiro». 


Módulo 4.2.9: linhas 18000-18250 
18999 REM 33333 IEJEIE JE IEEE IE IE IEIE IE IEEE IEEE IE IEEE 
18910 REM User Search 
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18020 REM 33 IEIEIEIEIE IE DEDE IES IE IE SEDE TETE IE IEIEIEIE IEEE IEEE 
199530 ss=02 

189040 t1i$="":WHILE it>B 

18950 CLS:PRINT "“Search:":PRINT 

18060 PRINT “Item number:";ss+ti 

18970 PRINT nn$;":“;array$(ss,0) 

18989 PRINT "Units:";arrayg(ss,1) 

18990 PRINT “Quantity per ";LOWER$ (array 

$(ss,1));":";arraytss) 

19100 PRINT:PRINT “Commands available:": 

PRINT 

18110 PRINT “Input itea to be searched f 
or" 

18128 PEN 2:PRINT “ENTER"::PEN 1:PRINT” 
for next item” 

18130 PRINT "“R&º then number to move poi 
nter" 

18140 PRINT "'“d' to delete item” 

18150 PRINT "'N“ to quit” 

18160 FRINT: INPUT “Which do you require" 
tis 

18170 IF tif="" THEN tif="H1" 

18180 IF tig=""" THEN RETURN 

iBgio9M IF LOWERE(ti$)="d" THEN GOSUE 1900 
B:tig="" 

189200 IF LEFT&(ti&,1)="H" THEN ss=ss+VAL 
(MIDE(t1IE,2)D) tlg="" 

18210 IF tig<>"" THEN GOSUE 16000 

19220 IF ss>it-l THEN ss=it-i 

18238 IF ss<B THEN ss=0 

19249 WEND 

18258 RETURN 


Comentário 

Linha 18170: em vez de se fazer uma provisão especial para a introdução de RE- 
TURN — isto é, uma cadeia vazia — a variável T1$ é primeiro regulada para &1. Se 
o utilizador apenas premir RETURN, o conteúdo de T1$ permanecerá inalterado e o 
item seguinte do ficheiro será visualizado. 
Ensaio 


Execute apenas o programa, volte a carregar os três itens de dados a partir da fi- 
ta e, depois, chame a opção 6, «Display Dictionary» (visualizar dicionário), a partir 
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do menu principal. Deverá poder paginar através dos itens, para a frente e para trás, 
utilizando um número precedido de « &», tal como no «Unificheiro». Deverá tam- 
bém poder recuperar um item introduzindo o nome desse item — não o nome da uni- 
dade. 


Módulo 4.2.10: Apagamento de um item 
É o equivalente directo do módulo de apagamento, no «Unificheiro». 


Módulo 4.2.10: linhas 19000-19090 


19900 REM 33 IEIEIEIE TETE IEIEIEIE IE IE IEIEIEIE TETE DEI IEEE IEEE 
19910 REM Delete 

19B2D REM III IE DEDE IEIE IE IE IEIEIE IE IE IE IE IE IEIE IE TETE IE IEEE 
i9S030 FOR i=ss TO it-? 

19040 arrayf£(i,B)=array&(i+1i,0) 

19050 array$(i,l)=array$(i+1,1) 

19060 array(i)=array(ti+1) 

19070 NEXT i 

19080 it=it-i 

19090 RETURN 


Ensaio 


Execute o programa, volte a carregar os dados, chame a opção 7 a partir do me- 
nu principal e introduza «D» contra uma das entradas. Verificará que a entrada é re- 
movida do ficheiro. 


Módulo 4.2.11: Cópia de itens para a listagem corrente 


O objectivo de «Nnúmero» não é apenas manter um dicionário de itens e das 
suas quantias associadas, mas utilizar esse dicionário como base para a construção 
de listagens temporárias. Os módulos que se seguem são, portanto, destinados a per- 
mitir ao utilizador acrescentar itens à «listagem corrente», visualizar essa listagem, 
apagar itens singulares ou apagar toda a listagem numa só operação. Este módulo 
permite a cópia de itens a partir do dicionário principal, para a listagem «corrente». 


Módulo 4.2.11: linhas 13000-13210 


13000 REM 363 333EIEIEIEIEIEIE IE IE IE IE IE IE IE IE IE IE IE IE IE IE IE IEEE 


1389108 REM Extend Current List 
13920 REM SIS IEIEIEIEIEIE DEDE IE IE IE IE TETE IE IE IEEE IEEE IEEE 


13038 WHILE 1 
13940 CLS 
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13058 PRINT "“Additions to current list:" 
“PRINT 

13268 IF cu>iBO THEN x$=" xxx CURRE 
NT LIST NOW FULL sx***": GOSUB. 229090: RETU 
RN 

139708 PRINT nn$s: INPUT " ('Nº to quit):" 
tis 

1380892 IF t1i$="1" THEN RETURN 

13998 known=9: GOSUB 160900: IF arrayg(ss,0 
)=ti$ THEN known=1 

13100 IF known=8 THEN x$="*x** "+UPPERE( 
nn$)+" UNKNOWN, PLEASE CHECK xx**": GOSUB 
23000: RETURN 

13118 PRINT:PRINT "Units:";arrayg(ss,l) 
13128 INPUT "“Quantity:",q 

131398 PRINT: INPUT "Are these correct (y 
fn5"sgã 

13140 WHILE LOWER$S (gê)="y” 

13150 tef(cu,D)=arrayf(ss,B) 

13160 tet(cu,1)=MID$(STR$E(g),2)+" "+arra 
y3(ss,l) 

13170 te(cu)=qxarray (ss) 

131892 cu=cu+ti 

13198 qf="" 

13200 WEND 

13210 WEND 


Comentário 


Linhas 13090-13100: estas linhas efectuam uma verificação, para ver se o item 
introduzido pelo utilizador, que deve ser colocado na listagem corrente, está presente 
no dicionário principal. Isto é feito através da chamada do módulo de pesquisa dico- 
tómica, para obter a posição em que o item deverá ser inserido no dicionário. O ac- 
tual conteúdo do dicionário, neste ponto, é então comparado com o que o utilizador 
introduziu. Se o item introduzido pelo utilizador estiver incluído no dicionário, en- 
tão os dois itens serão os mesmos. Caso contrário, será impressa uma mensagem de 
erro, terminando o módulo. 


Linha 13110: depois de ter sido encontrado o item no dicionário, o módulo im- 


prime as unidades em que aquele é, normalmente, medido e pergunta quantas destas 
unidades devem ser incluídas. 


Linhas 13120-13170: são introduzidas as quantias reais. O utilizador é então so- 
licitado a confirmar a veracidade da entrada antes de esta ser acrescentada à listagem 
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corrente, contida nas variáveis TE$ e TE. Note que a quantidade armazenada em TE 
não é a quantidade por unidade retirada do dicionário, mas a quantidade total para 
o número de unidades especificadas pelo utilizador. 


Ensaio 


Execute o programa e volte a carregar os dados a partir da fita. Chame a opção 
2 do menu principal. Introduza os seguintes itens e números de unidades: 


THINGI,1 
THING2,2 
THING3,3 


Tente agora que o módulo aceite «THING4», que não se encontra presente no 
dicionário. Deverá receber uma mensagem de erro, que lhe pedirá para verificar o 
nome do item. Antes de fazer algo mais, chame a opção 7 — esta armazenará a lista- 
gem corrente que você acabou de criar, juntamente com o dicionário principal. Fi- 
nalmente, escolha a opção 8 para parar o programa. 

Introduza agora a seguinte linha, em modo directo: 


FORI=0TO 2:ºTE$(1,0), TEOS(I,1), TE(D):NEXT[IENTER] 


Deverá ver o que segue: 


THINGI I BOX IO 
THING2 2 BOTTLE 40 
THING3 3 BAG 120 


Módulo 4.2.12: Visualização da listagem corrente 


O único objectivo deste módulo é o de imprimir as entradas que constituem a 
corrente listagem, uma por uma, no écran. Depois de cada entrada, o utilizador é so- 
licitado a premir uma tecla antes da visualização da entrada seguinte. Isto porque a 
listagem será, normalmente, mais longa do que o próprio écran e o utilizador não 
pretenderá que a listagem desenrole para fora do écran mais depressa do que conse- 
gue lê-la. No final da listagem, é dado o total das quantidades associadas ao conteú- 
do da listagem corrente. 


Módulo 4.2.12: linhas 12000-12160 


120090 REM 363 IEIEIEIEIEIEIEIEIEIEIEIE IE IE IE TE IE IE DEDE DEE IEEE 
129010 REM Display Current List 

12020 REM IJ IE IEIEIEIEIEIEIEIEIEIEIEIEIE IE IE IEEE IEEE IE 
12038 IF cu=0 THEN RETURN 

12040 CLS: ct=0 

12050 FOR i=0 TO cu-i 

12060 PRINT nng;":";tes(i,D) 
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12970 PRINT “Units: ";te$(i,i) 
12080 PRINT "Quantity:";te(li) 


121900 WHILE INKEY$="":WEND 

12110 ct=ct+te(i) 

12120 NEXT i 

12130 PRINT:PRINT "Total:";ct 

12140 PRINT:PRINT "Any key to return to 


12150 WHILE INKEY$="": WEND 
12160 RETURN 


Módulo 4.2.13: Apagamento de itens da listagem corrente 


Trata-se de uma versão muito mais simplificada do tipo de módulo de pesquisa 
utilizado para o dicionário principal. Ela permite ao utilizador avançar através da 
listagem corrente, um item de cada vez, e apagar qualquer item introduzindo «D» 
junto a ele. O processo pode ser terminado em qualquer altura introduzindo « ». 


Módulo 4.2.13: linhas 20000-20250 


Z0DDD REM IJ III IEIE DE IE IE IEIE IE IE IEIE IE IE ICI III IE ICI IE 
28018 REM Current List Deletions 

20020 REM JJ JEI TETE IE IE IE IE DEDE TETE IE IE DE IE IE IE IE IE IE IE IEEE 
22030 i=B 

20040 WHILE iúcu 

22050 CLS 

20060 PRINT "Current list deletions:":PR 
INT 

20070 PRINT tef(i,B) 

20080 PRINT teg(i,i) 

20090 PRINT:PRINT "Commands available: ": 
FRINT 

220100 PEN 2:PRINT "ENTER"; :PEN 1:PRINT o" 
for next item" 

20110 PRINT "'d' to delete” 

20120 PRINT "'Nº to quit” 

28130 PRINT: INPUT "Which do you require" 
:q$ 

20140 IF qg="N" THEN RETURN 

28150 IF LOWER$(qf)<>"d" THEN i=i+i 
20160 WHILE LOWERS$ (q$)="d" 

28170 FOR 5=i TO cu-i 
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2018980 tet(j,B)=tes(j+1,0) 
201998 tet(j,l)=te$(j+i,i) 
20200 te(lj)=te(lj+i) 

28210 NEXT 5 

22222 cu=cu-l 

20230 qg$="": WEND 

20240 WEND 

202250 RETURN 


Comentário 


Linhas 20150-20230: a variável que controla qual dos itens deve ser visualizado é 
«Il». Note que ela não será aumentada se «D» for introduzido. «Il» apontará para o 
item a ser apagado e o processo de apagamento copiará o item seguinte para essa po- 
sição abaixo. 


Ensaio 


Execute o programa e volte a carregar o ficheiro de dados que contém a listagem 
corrente, a qual foi salvaguardada num ensaio anterior. Chame a opção 4, «Delete 
from Current List» (apagamento na listagem corrente), a partir do menu principal. 
Deverá agora poder percorrer os três itens da listagem corrente e apagar um deles — 
o facto de ele ter sido apagado pode ser verificado visualizando a listagem corrente. 


Módulo 4.2.14: Inicialização da listagem corrente 


Para muitas aplicações, será necessário construir uma listagem corrente, obter o 
total envolvido e, depois, passar rapidamente a uma nova listagem. Este módulo 
simples limpa o conteúdo da listagem corrente numa só operação. 


Módulo 4.2.14: linhas 14000-14090 


14DOD REMETE IEEE CICS IIRIIERA E 
14010 REM Initialise Current List 

14D2D REM IICIICIIEIEI ME IEILIEIEIEIEIEAEIEEEIE E IE 
14030 FOR 1i=0 TO cu-t 

14040 tes(i,B)="" 

14050 testi,1i)d="" 

14060 te(i)=0 

14070 NEXT à 

1409890 cu=Q8 

14998 RETURN 
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Ensaio 


Execute o programa, volte a carregar o ficheiro de dados que inclui a listagem 
corrente e especifique a opção 3, «Start Fresh List» (iniciar nova listagem), a partir 
do menu principal. O menu principal deverá ser quase instantaneamente reimpresso. 
Experimente agora chamar a opção 1, a partir do menu principal. Uma vez mais, tu- 
do o que acontece é que o menu principal se reimprime a ele próprio — o módulo de 
visualização foi chamado, mas, como não existe nada para ser visualizado, a exe- 
cução retorna imediatamente. 

Se este ensaio for completado satisfatoriamente, o programa estará completo e 
pronto a ser utilizado. 


PROGRAMA 4.3: TEXTO 


Função do programa 


Uma das aplicações mais fascinantes do computador moderno é o processador 
de texto. Utilizando um processador de texto moderno e sofisticado, é eliminado 
muito do trabalho fastidioso que sempre acompanhou a escrita, de qualquer tipo, e 
mesmo documentos complexos transformam-se em tarefas realtivamente simples. In- 
felizmente, no entanto, um programa que execute um processador de texto com to- 
das as especificações pode utilizar mais memória do que a disponível ou um micro 
pessoal ainda mais potente do que o 464. Mais importante ainda é que, por rápido 
que o BASIC do 464 seja, a velocidade a que uma aplicação complexa, como é o ca- 
so do processamento de texto, precisa de ser executada, em condições normais, ne- 
cessita de programação directa em código-máquina, a obscura linguagem compreen- 
dida pela pastilha (chip) de processamento Z80 do 464. 

O programa fornecido abaixo, «Texto», não pode ser laureado com o título de 
«processador de texto», mas, ainda assim, permite ao utilizador tratar o 464 como 
uma forma mais flexível de máquina de escrever, compondo texto, alterando-o, apa- 
gando linhas ou palavras, deslocando linhas e imprimido-as numa impressora com- 
patível. Se procura algo para gerir um escritório, então não é aqui que vai encontrá- 
“lo. Mas, se precisa de algo para compor pequenos documentos, então «Texto» é 
uma útil ferramenta para executar esse trabalho — de facto, é mesmo um dos meus 
maiores prazeres, como escritor, quando recebo cartas de leitores de anteriores li- 
vros, referindo que a carta foi composta e impressa utilizando anteriores versões do 
«Texto». 
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123 Anystreet 
Anytown 

Anyshire 

Tel. 01 234 5678 


Dear Mr. Bloggs, 


Thank you for your letter with regard to developing Texted as a 


commercial alternative to Wordstar. I think it has some way to go 
vet. 
As you can see, the facilities are quite limited. Nevertheless it 


does the job. 


I look forward to hearing from you further, 


Yours sincerely, 


David Lawrence 


Fig. 4.3: Carta-demonstração composta e impressa utilizando «Texto». 


Novos conceitos apresentados neste programa incluem: 


1) Cursores controlados pelo programa e introdução de texto. 
2) Manipulação de material em vastas arrays em cadeia. 
3) Saída para uma impressora de texto complexo. 


Módulo 4.3.1: Inicialização 


Trata-se de um módulo sem complexidade, em que nada há para salientar ex- 
cepto a utilização de uma, ou duas, das variáveis declaradas. 


Módulo 4.3.1: linhas 11000-11100 


11DBDD REM SEJ IEIEIEIEIEIEIEIE IE IEIE IE IE IE IES IE IE IEEE IE E 
11010 REM Initialise 

11D2D REM III IEIEIEIEIEIEIEIEIEIEIE ICI IE IEEE IEEE IE IE IR IE 
11030 in=i 

119040 DIM text$(100):11=1:pl=1 

11050 text$(D)=STRING$(32,CHR$(245)) 
11060 text $(1)=STRING$(32,CHR$(244)) 
11070 at=" " 

11980 INPUT "Do you wish to load from ta 
pe (y/n)";q$ 

11990 IF LOWER$(q$)="y" THEN GOSUB 19909 
111909 RETURN 
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Comentário 


Linha 11040: o quadro TEXTS será utilizado para conter o corpo principal do 
texto introduzido. 


Linhas 11050 e 11060: estas duas linhas de símbolos gráficos constituem dois 
marcadores, que aparecerão no écran sempre que o topo ou o fundo do bloco de tex- 
to for encontrado. 


Módulo 4.3.2: Introdução de caracteres 


A primeira tarefa principal do programa será aceitar informações a partir do te- 
clado e fazer algo com elas, sendo essa a tarefa do corrente módulo. A maioria das 
linhas do módulo estão relacionadas com a introdução de caracteres de «comando» 
especiais, que dizem ao «Texto» para executar uma função específica, tal como apa- 
gar um carácter, embora haja algumas linhas familiares do capítulo de gráficos, 
quando é necessário um cursor móvel. 

A função geral do módulo é permitir ao utilizador introduzir texto na linha 23 
do écran, editando-a à medida que se vai avançando. Módulos posteriores pegarão 
nestas linhas e incorporá-las-ão no corpo principal do texto. 

Deverá também notar que este é um dos poucos programas do livro que têm se- 
parações entre as linhas, com o objectivo de uma maior clareza. Isto deve-se a que, 
embora curto, o programa utiliza uma tal massa de nomes de variáveis e de curtos ci- 
clos que é muito difícil seguir o fluxo sem um guia visual. Tal como em programas 
anteriores, que foram apresentados desta forma, as linhas programáticas contendo 
apenas dois pontos (:) podem ser omitidas, se assim o desejar. 


Módulo 4.3.2: linhas 12000-12430 


12000 REM 23EIEIEIEIEIEIEIEIEIE IE IE TETE IE IE IE IEIE II IEEE IEEE 

12210 REM Edit Line 

12020 REM JE IEIEIEIEIEIEIEIEIE DEI IEIEIE TETE IE IE IE JEI IE IE IEEE 

12030 : 

12040 : 

12050 WHILE 1 

12060 : 

12070 : 

12080 t$&="":WHILE t$="" 

12090 LOCATE p-40xINT (p/40)+1,253+INT(p/4 
D):PEN 1:PRINT CHR$E(CI43) 

12100 FOR tt=i TO 28:NEXT tt 

12110 LOCATE p-40xINT(p/48)+1,2535+INT(p/4 
B):PEN 2:PRINT MID$(ag,p+i,i) 

121202 t$=INEKEYE 

12138 WEND 
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12140 : 


12150 : 

i2160 IF t&=CHR$(13) OR (LEN(as) >48 AND 
tê=" ") THEN t$="":GOSUEB 13000 

12170 IF t&="“>" THEN GOSUB 15000 

12180 : 

12190 : 


12200 WHILE t$="1" 

12210 IF p<>B THEN t=Q ELSE t=L EN(ag)-—1 
12220 p=t 

12230 t&="": WEND 

12240 : 

12250 : 

12260 WHILE p>B AND t$=CHR$(IZ7) 

12270 af=LEFTE&(aft,p-l)+MID$(a$t,p+1) 
12280 p=p-l 

12290 tã="": WEND 

12300 : 

12310 : 

i2Z20 WHILE t&>=CHR$E (32) AND t&<=CHRECIA 
3) AND tão >CHR$(I27) 

12330 asf=LEFT$S(a$,p)+t$+MIDS (ag,p+1) 
12340 p=p+1 

12350 t$="":WEND 

123608 : 

12370 : 

12380 IF t$=CHR$(242) AND p>B THEN p=p-1 
12390 IF t$=CHR$(243) AND p<LEN(ag)-1 TH 
EN p=p+i 

12400 : 

12410 : 

12420 LOCATE 1,23:PRINT ag 

12438 WEND 


Comentário 


Linhas 12080 e 12130: trata-se de um módulo para intermitência do cursor, que 
actua em espaço inverso sobre um carácter da linha 23. A posição do cursor é indica- 
da pelo valor da variável P. O cursor alterna com uma letra da cadeia A$, a qual é 


utilizada para introduzir texto. 


Linha 12160: esta linha chama a parte subsequente do programa, que incorpora 
o que é introduzido no corpo principal do texto. Isto pode ser efectuado pelo utiliza- 
dor premindo ENTER, ou automaticamente, quando a extensão de texto exceda 40 


caracteres e for introduzido um espaço. 
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Linha 12170: premindo a tecla com o símbolo da «seta para cima», na fileira su- 
perior de teclas, chama-se um módulo subsequente, que permite a execução de uma 
variedade de funções de edição sobre o corpo principal do texto. 


Linhas 12200-12230: se «N » for premido, o cursor intermitente deslocar-se-á 
para o princípio da linha ou, se já lá se encontrar, para o final da linha. 


Linhas 12260-12290: desde que o cursor intermitente não esteja posicionado no 
primeiro carácter, premindo a tecla DEL apaga-se o carácter colocado à esquerda do 
cursor intermitente. Isto faz-se facilmente reconstruindo a cadeia A$ sem o carácter 
na posição P. 


Linhas 12320-12350: estas linhas aceitam qualquer carácter com um código en- 
tre 32 e 163 (ver o «Apêndice» do seu manual para a listagem completa), excepto a 
tecla DEL, que é abordada acima, e torna-o parte da linha de texto que estiver a ser 
introduzida. O novo carácter é inserido no texto na posição do cursor intermitente. 


Linhas 12380-12390: para deslocar o cursor intermitente para a direita ou para a 
esquerda bastará alterar o valor de P, de acordo com a tecla cursora que for premi- 
da. Note como, assim como no capítulo dos gráficos, a definição do nosso próprio 
cursor nos permite aceitar apenas o que queremos, a partir das teclas de controlo co- 
mo as das setas cursoras, inserir, apagar, e assim por diante. Nenhuma destas teclas 
tem qualquer efeito automático, já que ficam fora do campo dos normais caracteres 
de impressão que o ciclo anterior aceita. Podemos, no entanto, utilizá-las quase co- 
mo teclas de função, definindo o efeito de premir qualquer delas — todas excepto a 
tecla ESC, é claro, que fará sempre parar o programa. 


Ensaio 


Tal como em programas anteriores, precisará de começar a inserir linhas do ci- 
clo de controlo. Por isso, introduza as linhas seguintes: 


10040 IF IN=0 THEN GOSUB 11000 
10060 GOSUB 12000 


e depois execute o programa. Especifique que não pretende carregar a partir da fita e 
deverá ser confrontado com um cursor intermitente no início de uma linha, na parte 
inferior do écran. Comece agora a escrever — aquilo que escrever deverá aparecer no 
écran. Deverá poder fazer apagamentos utilizando a tecla DEL, deslocando o cursor 
intermitente sobre aquilo que escreveu ou saltando do princípio para o fim utilizan- 
do «N ». Se premir ENTER, ou qualquer das setas de controlo, ou ainda se introdu- 
zir mais de duas linhas de caracteres seguidas de um espaço, o programa terminará 
com uma mensagem de erro «Undefined line» (linha indefinida). 
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Módulo 4.3.3: Colocação de material no corpo principal do texto 


Os próximos dois módulos funcionam conjuntamente para permitir o processa- 
mento das linhas introduzidas ao fundo do écran, bem como a sua integração no 
corpo principal do texto contido em TEXT$, que pode conter até 100 linhas, de 32 
caracteres cada uma. Quanto ao trabalho, é feito pelo módulo corrente, mas os re- 
sultados apenas aparecerão realmente com a entrada do próximo módulo, o qual vi- 
sualiza uma secção do texto. 


Módulo 4.3.3: linhas 13000-13310 


ÍSDDOD REM 3636 3EIEIEIEIEIEIE IE IE TETE TESE IEIEIE IE ILE IEEE AE IE IE IEA 
15910 REM Insert Line 

13D2D REM IE IEIEIEIEIEIEIEIEIEIEIEIEILIEIEIE IE IEEE IE IEEE 
13930 IF a$g="* " THEN a$=SPACES (33) 


139408 x=0 

13050 WHILE a$<>"" 

13060 : 

13070 : 

13089 d=0:WHILE LEN(a$)<34 AND d=0 
13090 tt$(x)=LEFT$ (as, LEN(a$S)-+1) 
1ÍZ100 a$f="" 

13110 d=1:WEND 

13120 : 

151308 : 


13140 WHILE LEN(af) >33 

13150 FOR 1i=533 TO 1 STEP —1 
13160 IF MID$(a$,i,1l)<>" " THEN NEXT izi 
=3J 

13170 tt&(x)=LEFT$S(ag,i-—l) 

13180 af=MID$S(ag,i+1) 

13190 x=x+1 

13220 WEND 

13210 WEND 

13220 x=x+1 

13230 : 

13240 : 

13250 FOR i=ll+x TO pi+x STEP —ài 
13260 textft(i)=text&(i-—x) 

13270 NEXT i 

132892 FOR i=B2 TO x-i 

13290 textt(pl+i)=tté(i) 

13380 NEXT à 

13310 af=" ":p=D:11l=1l+x:pl=pl+x 
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Comentário 


Linha 13030: trata-se de uma simples provisão para facilitar a saída de dados 
para uma impressora. O problema surge quando se pretende imprimir uma palavra, 
ou palavras, no lado direito da página. A visualização do écran, quando se consegue 
criá-la, compõe-se de linhas de 32 caracteres, enquanto uma impressora normal tra- 
balha com linhas de 80 caracteres. 

Quando imprime, o «Texto» executa duas linhas do texto em écran conjunta- 
mente, para formar uma linha impressa. A introdução de texto no lado direito do 
écran resultará, portanto, na impressão do texto a meio da página ou no seu arrasta- 
mento até ao fim da linha anterior. Uma forma trabalhosa de ultrapassar este pro- 
blema é introduzir primeiro uma linha vazia, premindo ENTER quando não existe 
texto para introduzir. Isto imprime uma linha em branco no papel e assegura que a 
linha a ser impressa a seguir comece no lado esquerdo da página. Depois disto, escre- 
va uma linha completa de espaços, seguida de outra linha de espaços terminando na 
palavra a ser colocada do lado direito — a impressora registará todos os espaços e a 
frase final aparecerá sobre a direita do papel. 

No programa final, contudo, a linha completa de espaços pode ser dispensada 
introduzindo uma linha consistindo num simples «*». O módulo corrente automati- 
camente traduz isto para uma linha de 33 espaços. 


Linha 13040: X é a variável que será utilizada para detectar quantas linhas de 
texto são necessárias para a adição do novo texto. 


Linhas 13050-13210: de cada vez que uma linha de caracteres for acrescentada 
ao corpo principal do texto, sê-lo-á retirada de A$, o novo texto introduzido através 
do módulo anterior. Este processo continuará até que não reste nada de A$. 


Linhas 13080-13110: o novo texto é, em primeiro lugar, colocado num quadro 
temporário TT$. Se houver 33 caracteres, ou menos (isto é, < 34), incluindo o espa- 
ço que se encontra sempre no final, então o novo texto caberá numa linha de 32 ca- 
racteres. Tudo o que é preciso fazer é transferi-lo e, depois, limpar A$. 


Linhas 13140-13200: se houver mais 33 caracteres, de modo que o novo texto 
não caiba numa única linha, o procedimento será pesquisar para trás, a partir do ca- 
rácter 33, para encontrar o primeiro espaço a marcar o final de uma palavra. A parte 
de A$ situada até este ponto pode agora ser transferida, assegurando assim que não 
haverá palavras divididas em duas. 

Esta secção de texto é agora removida da frente de A$ e o ciclo principal é exe- 
cutado novamente, exactamente da mesma forma, excepto no que se refere à coloca- 
ção de mais texto numa linha diferente de TT$. 


Linhas 13250-13300: a variável PL regista o local (PLace) no corpo principal do 
texto onde a nova linha deve ser inserida — inicia-se em 0, quando não existe texto, e 
permanece, normalmente, ao fundo do que foi introduzido. Módulos posteriores 
permitirão ao utilizador deslocar o ponto de inserção para cima e para baixo, através 
do corpo principal. O primeiro dos dois ciclos desta secção começa por fazer espaço, 
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no ponto de inserção, para o número de novas linhas registado por X. Isto faz-se 
deslocando tudo desde o ponto de inserção até à última linha (LL) para cima, atravês 
do número de novas linhas, representado por X. O segundo ciclo copia o conteúdo 
de TT$ para o espaço criado. 


Ensaio 
Introduza uma linha suplementar: 
14130 RETURN 


e depois execute o programa. Quando o cursor intermitente aparecer, introduza: 


AAA[ENTER] 
BBBIENTER] 

CCCIENTER] 
DDDIENTER] 


Depois de ter feito isto, prima STOP para terminar o programa. Agora, em mo- 
do directo, introduza: 


FOR I=OTO 5:PRINT TEXTS(I):NEXT[ENTER) 


Deverá ver uma linha em dente de serra, seguida das quatro linhas de texto que 
introduziu e de outra linha em dente de serra, marcando o final do texto. 


Módulo 4.3.4: Visualização do texto 
Este módulo visualiza quinze linhas do corpo principal do texto. 


Módulo 4.3.4: linhas 14000-14130 


14000 REM 336 33EIEIEIEIEIEIEIE IE IEL IE IEIE IEEE III IE III IE E 
14910 REM Display Text Section 

14028 REM 333 3IEIEIEIEIEIEIE IEEE IEIEIE IE ICI II IEEE IEEE 
14030 ss=pl-7 

140408 IF 11-pl<8 THEN ss=11-15 

14050 IF ss<B THEN ss=0 

140260 CLS 

14970 FOR i=ss TO ss+15 

14090 PEN 2 

14090 PRINT TEXT$(I) 

14190 IF i=pl-i THEN PEN 1:PRINT ">" 
14110 NEXT à 

14120 LOCATE 1,23:PEN 2:PRINT ag:PEN 1 
14138 RETURN 
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Comentário 


Linhas 14030-14050: a variável SS representa a linha inicial da secção a ser 
impressa (Section Start, ou seja, início da secção) e é calculada de modo a ficar, nor- 
malmente, oito linhas antes do ponto de inserção corrente. Se o ponto de inserção es- 
tiver perto do final do texto, ou mesmo no fim, isto significa que apenas serão visua- 
lizadas oito linhas, pelo que a linha 14040 desloca o ponto inicial mais para trás. Fi- 
nalmente, se houver menos de quinze linhas ou o ponto de inserção se situar no iní- 
cio, o ponto inicial encontrar-se-á então antes do início do texto, pelo que será au- 
mentado para 0. 


Linhas 14070-14110: as quinze linhas são agora impressas. Todas as linhas ter- 
minam por um ponto e vírgula, para evitar que a posição de impressão se desloque 
para baixo uma linha. Isto deve-se a que, de outro modo, uma linha completa de 40 
caracteres (a primeira e última linhas, consistindo em símbolos gráficos) enviaria o 
cursor para a linha seguinte, deixando assim uma linha em branco quando aquela 
passasse para baixo. Para linhas com menos de 40 caracteres, o efeito do ponto e vir- 
gula é cancelado por um PRINT vazio. O único outro requinte consiste na marcação 
do ponto de inserção com um sinal «>» — quaisquer funções de edição, tais como a 
adição de linhas, a respectiva cópia ou apagamento, actuarão sobre a linha abaixo 
do marcador. 


Linha 14120: finalmente, como o écran ficou limpo, qualquer coisa que se en- 
contre em A$ será reimpresso ao fundo do écran. 


Ensaio 


Efectue o mesmo ensaio que para o módulo anterior, sendo a única diferença 
que, em vez de ser necessário introduzir um comando especial para ver o que se in- 
troduziu, cada linha deverá ser colocada no texto principal ao ser premido ENTER. 


Módulo 4.3.5: Edição do texto principal 


Depois de nos termos possibilitado a edição de novo texto à medida que vai sen- 
do introduzido, precisamos agora de obter algum controlo sobre o próprio texto 
principal. O módulo corrente dá ao utilizador a possibilidade de deslocar o ponto de 
inserção ao longo de todo o texto, de voltar a copiar linhas do texto para o fundo do 
écran, para efectuar alterações, e de apagar linhas existentes. 


Módulo 4.3.5: linhas 15000-15320 


15000 REM SE 3EIEIEIEIE DEDE IEIE IE TETE IEIE IE IEEE IE IE III IE IE 
15010 REM Edit Mode 

15220 REM JE 3EIEIEIEIEIEIEIEIEIEIEIEICIEIEIE III III EE 
15030 WHILE 1 

15948 p2=pl-ss 


O AMSTRAD FUNCIONAL 179 


15050 


15060 

15070 tig="":WHILE tig="" 

158890 LOCATE 1,p2+i:PRINT “ “:FOR i=1i TO 
o: NEXT i 


15998 LOCATE 1,p2+1:PRINT ">":FOR i=í TO 
20:NEXT i 

15100 t1$=LOWER$ (INKEY$) 

15110 WEND 

15128 : 

15130 : 

15140 pl=pl+(t1$=CHR$(240))+10x(ti$="u") 
:IF pl<1i THEN pl=1 

15158 pl=pl-(t1i$=CHR$(241))-1Be(tis="d') 
:IF pl>11 THEN pl=ll 

15160 IF t1$=CHR$(13) THEN t$="":RETURN 
15170 : 

15180 : 

15190 WHILE pl<11 AND t1$=CHR$(127) 
152800 FOR i=pl TO ll:text$(i)=text$(i+1) 
NEXT à 

15210 11=11-1 

15220 t1$='""": WEND 

15230 : 

15240 : 

15250 IF pl<11 AND ti$="c" THEN at=text$ 
(pl)+" " 

15260 IF tis="p" OR t1i$="v" THEN GOSUB 1 
7000 

15270 IF t1i$="s" THEN GOSUB 18000 

15280 IF t1$="f" THEN GOSUB 14000 

15290 : 

15300 : 

15310 GOSUB 14000 

15320 WEND 


Comentário 

Linha 15040: para os objectivos deste módulo, o número de linha no écran do 
símbolo «>», que indica o ponto de inserção corrente no texto, será armazenado na 
variável P2. 


Linhas 15070-15110: o cursor «>» passa a intermitente, para indicar que o pro- 
grama se encontra em modo de edição. 
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Linhas 15140-15150: o cursor de edição pode ser deslocado para cima ou para 
baixo, através do texto — embora apenas em modo de edição. O cursor deslocar-se-á 
uma linha se se premir a seta cursora para cima ou para baixo; deslocar-se-á dez li- 
nhas para cima ou para baixo se se premir «U» ou «D». Note que, na prática, não é 
o cursor que se desloca, mas sim o texto que o rodeia, a menos que seja encontrado o 
princípio ou o fim do ficheiro. 


Linha 15160: o modo de edição termina se se premir ENTER. 


Linhas 15190-15220: se a tecla DEL for premida durante o modo de edição, 
apagar-se-á a linha de texto por baixo do cursor de edição. 


Linha 15250: se «C» for premido durante o modo de edição, a linha abaixo do 
cursor de edição será copiada para o fundo do écran, de modo que possa ser mani- 
pulada como novo texto. 


Linha 15260: se «P» ou «V» forem premidos durante o modo de edição, o mó- 
dulo subsequente será chamado, enviando o texto para uma impressora ou para o 
ecran, em modo de 80 colunas. 


Linha 15270: se «S» for premido durante o modo de edição, o módulo subse- 
quente será chamado, para salvaguardar o texto para fita. 


Linha 15280: se «F» for premido durante o modo de edição, o módulo subse- 
quente será chamado a arrumar o texto e a tentar normalizar, até onde for possível, 
a extensão das linhas. 


Ensaio 


Com este módulo introduzido, efectue o mesmo ensaio que para o módulo ante- 
rior, inserindo quatro grupos de letras. 


1) Prima agora «» e o cursor de edição deverá começar a piscar. 

2) Experimente movimentar o cursor de edição para cima e para baixo, uti- 
lizando as setas cursoras. A utilização de «U» e «D» deverá fazer deslo- 
car o cursor para o topo ou para o fundo do texto, uma vez que existem 
menos de dez linhas de texto. 

3) Desloque o cursor de edição para a linha acima da última linha de texto. 
Prima «C», e «DDD» deverá ser copiada para a parte mais inferior do 
écran. 

4) Prima a tecla DEL e a linha «DDD» deverá desaparecer do texto princi- 
pal. 

5) Desloque o cursor de edição para o topo do texto. 

6) Prima ENTER para terminar o modo de edição. 

7) Quando o cursor intermitente regressar ao fundo do écran, volte a pre- 
mir ENTER. Deverá obter a inserção da linha «DDD» no início do texto. 
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Módulo 4.3.6: Formatação do texto 


Uma outra possibilidade útil é a de arrumar o corpo principal do texto introdu- 
zido. Isto é necessário porque uma das vantagens principais da edição de texto, ou 
do seu irmão mais velho, o processamento de texto, consiste na capacidade de pegar 
num texto existente e retirar-lhe frases, ou inserir-lhe novas. Este processo conduz, 
muitas vezes, a uma aparência esfarrapada do texto e, por essa razão, a maioria dos 
processadores de texto que não arrumam automaticamente o texto à medida que é 
inserido permitem ao utilizador solicitar uma função de «formato». Na sua orgânica 
mais simples, a função de formatação consiste em verificar cada linha e determinar 
se a primeira palavra da linha seguinte poderá caber no final da linha anterior — se 
assim for, a palavra é deslocada. O resultado, mesmo que não sejam inseridos espa- 
ços para fazer que todas as linhas terminem exactamente no mesmo ponto (jus- 
tificação), é um texto mais arrumado e agradável. O módulo corrente executa a fun- 
ção de formatação no texto contido em TEXTS, utilizando as técnicas de corte de ca- 
deias apresentadas, em primeiro lugar, no cap. 1. 


Módulo 4.3.6: linhas 16000-16310 

160DD REM 33636363 IEIEIEIEIEIEIE IEEE IE IEIEIEIL IE IEEE EEE 

169010 REM Format Line 

16D2D REM III IEIEIEIEIEIEIE IEEE IEEE IE IE IE IEIEIEIL IEEE E 

16930 FOR i=1i TO 11-2 

16040 d=0:WHILE text$(i)<>"" AND textst(i 
+1)<>"" AND text$(i)<>SPACES(32) AND tex 
t$(i+1)<>SPACE$ (32) AND d=0 

16050 : 

160608 : 

16970 sp=32-LEN(text$(i)) 

16080 wrd=INSTR(text$(i+1)," ") 

16990 IF wrd=0 THEN wrd=LEN(textE(i+1))+ 
1 

16190 IF wrd>sp THEN d=1 

16118 : 

16128 : 

16130 d2=B:WHILE sp>=wrd AND sp<=LEN(tex 
t$(i+1)) AND d2=0 

16140 texts(i)=texté(i)d+” "+ EFTE(textE( 
1+1) ,wrd-1) 

16150 text$(i+i)=MID$(text$(i+i) ,wrd+1) 

16169 d2=1:WEND 

16170 : 

161908 : 

16190 sp=32-LEN(text$(i)) 

16200 d2=0:WHILE LEN(text$(i+1))<sp AND 

d=0 AND d2=0 
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16210 text$(i)=text$(i)d+" "+text$s(i+l) 
16220 FOR j=i+1i TO 11 
162350 text$(j)=text$(j+1) 
16240 NEXT 5 

16250 11=11-1:pl=pl-i 
162608 d2=1:WEND 

16270 : 

162800 : 

16290 WEND 

16Z00 NEXT à 

16310 RETURN 


Comentário 


Linhas 16030-16300: o processo de formatação inicia-se na primeira linha e tra- 
balha linha a linha através do texto. 


Linhas 16040-16290: a operação apenas é efectuada sobre linhas que contenham 
algo. No final de um parágrafo, por exemplo, pode perfeitamente existir uma linha 
que tenha menos de 32 caracteres de comprimento — não desejamos ver o início do 
parágrafo seguinte passar para cima do final desta linha. Isto é ultrapassado com a 
introdução pelo utilizador de uma linha em branco após o final do parágrafo. O mó- 
dulo de formatação não acrescenterá esta linha em branco ao final da linha anterior, 
nem copiará quaisquer palavras da linha seguinte para a linha em branco. 


Linha 16070: a variável SP é utilizada para armazenar a quantidade de espaço 
disponível no final da linha que estiver a ser examinada. 


Linha 16080: WRD é utilizado para armazenar a extensão da primeira palavra 
da linha seguinte, tal como indicado pela presença de um espaço. 


Linha 16090: se não houver um espaço na linha seguinte, a extensão de WRD 
será regulada para a extensão da linha completa. 


Linha 16100: se a extensão da primeira palavra da linha seguinte for maior do 
que o espaço disponível no final da linha corrente, não existe vantagem em ir mais 
além com a linha corrente, pelo que o ciclo WHILE termina e o ciclo FOR passa à li- 
nha seguinte do texto. 


Linhas 16130-16160: estas linhas são chamadas à acção se houver espaço sufi- 
ciente no final da linha corrente para a palavra seguinte, embora não para toda a li- 
nha seguinte. O efeito das linhas consiste em copiar a palavra para o final da linha 
corrente e retirá-la do início da linha seguinte. 


Linhas 16190-16260: é muito possível que a linha corrente contenha espaço sufi- 
ciente para guardar toda a linha seguinte. Neste caso, não se trata apenas de copiar a 
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linha seguinte para a linha corrente — todo o quadro tem de ter uma linha elimina- 
da, já que, se assim não for, o programa ficará confuso com a instrução, acima men- 
cionada, de que as linhas em branco devem ser deixadas sós. 


Ensaio 


Efectue o mesmo ensaio do módulo anterior introduzindo os quatro grupos de 
letras. Quando todos eles forem visualizados como parte do texto principal, prima 
«» para introduzir o modo de edição e depois «F». Após uma pausa (que deverá ser 
bastante acentuada, caso já tenha introduzido muito texto), o texto principal voltará 
a ser visualizado, mas, desta vez, os quatro grupos de letras deverão ter sido executa- 
dos conjuntamente numa só linha. 


Módulo 4.3.7: Ficheiros de dados 


Trata-se de um módulo normal de ficheiro de dados. Um pormenor a salientar é 
a utilização de LINE INPUT, que assegura que todo o texto que contenha vírgulas e 
outros caracteres perante os quais INPUT hesite seja devidamente recolhido. 

Para além disto, o módulo parece ter esclarecido um problema bastante obscu- 
ro, pelo menos em alguns 464. Este problema assume a forma de uma corrupção, to- 
talmente invisível para o utilizador, da cadeia FI$ no decrso do módulo, evitando 
que o 464 reconheça o nome do ficheiro em fita como o mesmo que foi introduzido, 
ainda que ambos, quando visualizados, sejam idênticos. Na nossa própria versão do 
programa, a linha 


por ridícula que pareça, consegue ultrapassar o problema lembrando ao computador 
o verdadeiro valor da cadeia. Se o programa funcionar sem aquela adição (como de- 
verá), pode ignorar o comentário aqui feito. 


Módulo 4.3.7: linhas 18000-19150 
18000 REM IEIEIEIEIE IE IEEE IEIE TETE TETE EI ICI ICE TETE IEEE 


19910 REM Save To Tape 

1BD20 REM IEIEIEIEIEIEIE TETE IE IEEE IE IEEE EI IE II E 
18030 q$="":WHILE LOWER$ (q$)<>"y" 
18940 CLS: INPUT "File name: ",fif 

18950 PRINT "File to be saved is ";fif 
18960 INPUT "Is this correct (y/n)";q& 
18970 WEND 

18980 OFENOUT fit 

18999 PRINT H9,pl 

18190 PRINT H9,11 

18110 FOR i=2 TO 11 

18130 PRINT HO, textE(i) 

18140 NEXT à 

18152 CLOSEOUT 
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18140 
199200 
i9010 
i9220 
19030 
19240 
19250 
19069 
19070 
19980 
19890 
19095 
iviga 
Í91108 
191309 
19140 
19150 


RETURN 

REMO SE SEDE TESE IE TESE IE TESE IE DE TETE IE DEDE IE IE TETE IEEE ILE 
REM Load From Tape 
REM SE SEDE IEEE IE IE IE IE TETE IE IE IEEE IE IDE ICI IEEE IE IEEE EE 
qf="":WHILE LOWER$ (g$)<>"y”" 
PRINT: INPUT “File name:",fif 
PRINT “File to be saved is “:;fif 
INPUT "Is this correct (y/n)"sqf 
WEND 

OPENIN fif 

INPUT H9,pl 

INPUT H9,11 

FOR i=8 TO 11 

LINE INPUT H9,text&(i) 

NEXT à 

CLOSEIN 

RETURN 


Módulo 4.3.8: Módulo de controlo 


Trata-se de um módulo de controlo normal. 


Módulo 4.3.8: linhas 10000-10060 


iBBDA 
10810 
19020 
10030 
12040 
12250 
102060 


REM SIE SEE IE IE IE IE IE IE DE IEEE IE DE IE IE IE IE IE IE ICI DEI IE IEEE 
REM Control Loop 

REM SEE SEE IE IE TETE IE IE IE DE IE IE IE IE IE IE IE IE TETE IE III IE IEEE 
MODE 1 

IF in=QB THEN GOSUB 11900 

GOSUB 14000 

GOTO 12000 


Módulo 4.3.9: Impressão do texto 


Se possuir uma impressora — e um processador de texto não lhe será de grande 
utilidade se assim não for —, então este é o módulo que lhe permitirá pegar em tudo 
o que compôs no écran e colocá-lo em papel. Além disto, o módulo permite ao utili- 
zador visualizar primeiro o texto em modo de 80 colunas, no écran, de modo a asse- 
gurar que o texto seja exposto de uma tal forma que possa obter-se um resultado sa- 


tisfatório na impressora. 


Módulo 4.3.9: linhas 17000-17250 


17020 
17010 


REM SEDE SEE DEDE IEEE DE TE IE IE DEDE IE IE IEEE DE IE IE DEDE EEE 
REM Output To Printer 
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17028 
17030 
17040 
DE 2 

17050 
17060 
17070 
170980 
17090 
17100 
: d=1 
171108 


REM E IE SEE IEIEIE IEEE IEIEIE IEEE IE IEEE ETC TE DEE IEF 
channel=8 
IF t1ig="v" THEN channel=6:PEN 1:MO 


x=1 
WHILE x<11 
=9 


d 
IF text$(x)="" THEN PRINT tchannel 


IF d=0 THEN PRINT tchannel ,SPACES( 


B);texts 60; "; 


17129 
17130 
17140 
17150 
17160 
17170 
17180 
17185 


x=x+1 


WHILE x<11 AND d=9 

PRINT &tchannel ,text$(x) 

IF text$(x)="" THEN PRINT tchannel 
x=x+1 

IF channel=Q0 THEN IF INKEY$="" THE 


N GOTO 17195 


17190 
17200 
17210 
17220 
17230 
17240 


d=1: WEND 


WEND 
PRINT Hchannel 
IF channel=Q0 THEN IF INKEY$="" THE 


N GOTO 17240 


17250 


MODE 1 : RETURN 


Comentário 


Linhas 17030-17040: este módulo é chamado, quer o utilizador deseje ver o tex- 
to em impressora ou no écran, em modo de 80 colunas. A diferença será que, se o 
utilizador desejar que a visualização se faça no écran, a saída de dados do programa 


irá para o canal O (o écran) e o MODE 2 ficará preparado. 


Linha 17050: a variável X é utilizada para registar o progresso do módulo atra- 


vés das linhas de TEXTS. 


Linha 17070: a variável D será utilizada para saltar de umas secções do módulo 
para outras, quando nada mais houver a fazer a uma determinada linha de texto. 
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Linha 17100: tal como na formatação, não é feita qualquer tentativa para inter- 
ferir nas linhas em branco — quando uma é encontrada, é empregue uma instrução 
PRINT & vazia, para deslocar a posição de impressão uma linha para baixo. A variá- 
vel D passa a 1 para indicar que terminou uma linha de texto. 


Linha 17110: se a linha corrente não estiver vazia, será impressa como a primei- 
ra metade de uma linha de 64 caracteres, seguida por um espaço. Note-se o ponto e 
vírgula, o qual assegura que os caracteres impressos a seguir se sucedam sem mais in- 
terrupções. 


Linhas 17150-17190: é impressa a segunda metade da linha. Se era uma linha va- 
zia, é utilizada uma PRINT & extra para deslocar a impressora um espaço para bai- 
xo. Se a saída de dados estiver a ser encaminhada para o écran, então será inserida 
uma pausa após cada linha impressa, até que o utilizador prima uma tecla. Isto per- 
mite a visualização de documentos mais extensos do que um só écran. 


Linhas 17240: uma vez mais, se o écran estiver a ser usado para visualização, 
espera-se que seja premida outra tecla após a conclusão do documento. Serve isto 
para evitar que o utilizador, inadvertidamente, passe por cima da última linha e per- 
ca a visualização do documento. 


Ensaio 


Se possui uma impressora, assegure-se de que ela se encontra devidamente liga- 
da e a funcionar, introduzindo depois algum texto. Prima SHIFT/0 para introduzir 
o modo de edição e, finalmente, prima «P». O texto deverá passar para a impresso- 
ra. Se este ensaio for efectuado com sucesso, o programa deverá estar pronto para 
utilização. No entanto, para o ajudar a dominar melhor o programa, é fornecida a 
seguir uma tabela dos vários comandos de tecla única que devem ser utilizados. 


«Texto»: Tabela dos comandos de tecla única 


Em modo de inserção de texto 


ENTER Introduz novo texto no texto principal. 

N Desloca o cursor para o princípio ou fim da linha. 
DEL Apaga o carácter à esquerda do cursor. 

CURSOR 


ARROWS! Deslocam o cursor para a direita ou esquerda. 
Inserção do modo de edição. 


1 Setas cursoras. (N. do T.) 
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Em modo de edição 


ENTER Termina o modo de edição. 


CURSOR 

ARROWS  Deslocam o cursor de edição uma linha para cima ou para baixo. 
UouD Deslocam o cursor de edição dez linhas para cima ou para baixo. 
DEL Apaga directamente a linha por baixo do cursor de edição. 

C Copia directamente a linha por baixo do cursor de edição. 


P Imprime o texto principal corrente. 

S Salvaguarda o texto principal corrente para fita. 
F Formata o texto principal. 

V Visualiza o texto em formato de 80 colunas. 


PROGRAMA 4.4: MULTIQ 
Função do programa 


No programa final deste capítulo, viramo-nos para o compensador assunto da 
educação, visando algum divertimento. Não estou perfeitamente certo de quanto é 
possível aprender acerca do tema escolhido, utilizando este programa, mas é diverti- 
do de utilizar e torna num hábito a resposta a perguntas. E não apenas isto: o 
programa é uma estrela por direito próprio, já que foi uma anterior versão do «Mul- 
tiQ» o primeiro programa (pelo menos de acordo com as informações da imprensa) a 
gerar emissões radiofónicas, na Grã-Bretanha, em que os ouvintes se divertiam res- 
pondendo a perguntas. 


«MultiQ», tal como o nome sugere, é um programa de aplicação geral que, tan- 
to pode ser um orientador de línguas como, minutos mais tarde, um questionador 
sobre pontos pouco esclarecidos da história do século xix. Tudo isto é efectuado 
através da criação de testes aleatórios de resposta, do tipo cada vez mais utilizado em 
exames públicos, em que é posta uma questão e fornecidas cinco respostas possíveis, 
sendo apenas uma delas a resposta correcta. É mantida uma pontuação corrente, que 
fornece uma determinação dos conhecimentos do utilizador sobre o tema em causa. 
O trabalho principal cabe, evidentemente, ao programador, já que não só o próprio 
programa tem de ser introduzido, como há ainda a questão menor da introdução de 
um corpo de perguntas suficientemente vasto para assegurar um significado coerente 
dos testes. 


Módulo 4.4.1: Inicialização 
Tal como acontece com todos os programas de aplicação múltipla deste capítu- 


lo, este módulo inclui uma provisão para a descrição do tipo de ficheiro a ser tratado 
na corrente sessão. 
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Módulo 4.4.1; linhas 10000-10100 


IBDDD REM III IEL TETE IE IE IE IE IES I IE IE IEI IEEE IE IEEE E 
iBBIB REM Initialise 

IDBOZO REM DEI IEIEIEIE TETE IEIE IE IEICIE IE IEEE ICI IEEE E 
iBGBSB DIM nameégti),qu(4) jarrayf(499,1),q 
typess(9) ,ntype(l,9) 

iÍB040 right=B:total=B:it=Q 

iZB50 MODE 1 

ind6m PEN 2: FRIO TAB(17); "MULTIO":PRINT 


10070 WINDOW 1,40,4,25 

iz080 FEN 1 

1g298 INPUT "Load from tape (y/n)"s;qgf 
iZ1IDA IF LONER$(qg)="y" THEN GOSUE 23000 
ELSE GOSUB 24200 


Comentário 


Linha 10030: o quadro NAMES será utilizado para registar os nomes genéricos 
dados pelo utilizador às perguntas e respostas; QU será utilizado no estabelecimento 
de testes aleatórios; ARRAY$ conterá o ficheiro principal das perguntas e respostas; 
QTYPES conterá os nomes de tipos que possam ser atribuídos a perguntas e respos- 
tas; NTYPE armazenará o número de cada tipo no ficheiro principal. 


MULTIG 


ny more (y/n)? 1 


Fig. 4.4 — Parte de um teste montado pelo «MultiQ» 
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Módulo 4.4.2: A estrutura do teste 


O «MultiQ», como já foi salientado, estabelece testes, isto é, faz perguntas e 
visualiza respostas possíveis. Estas linhas permitem que o utilizador dê um nome 
genérico a perguntas e respostas. Se o programa se destinasse a ser utilizado com ob- 
jectivos de aprendizagem do francês, por exemplo, poderia chamar à pergunta «PA- 
LAVRA INGLESA» e à resposta «PALAVRA FRANCESA EQUIVALENTE)». 


Módulo 4.4.2: linhas 24000-24130 


2IDOR REM IE IEEE TETE IE DEI TETE ICI EEE ERIC E 
24010 REM Test Structure 

24020 REM SIE IEEE IE IEIEIE IE IE TESES IEILICIE IREI IEEE 
240350 qt="":WHILE LOWERS$ (gf)<>"y" 

24040 CLS 

24050 FRINT "Test structure: ":FRINT 
24060 INFUT “Name for answer:" namez (BZ) 
24070 INPUT "Name for question:",namef(i 
) 

24080 FRINT: INPUT "Are these correct (y/ 
MD "sgf 

24090 wWEND 

24100 qtypes(D)=“No type” 

24110 ntypes=l 

24128 GOSUB 12090 

24130 RETURN 


Módulo 4.4.3: Mensagens de erro 


Trata-se de um módulo normal para impressão de mensagens de erro fornecidas 
por outras partes do programa. 


Módulo 4.4.3: linhas 25000-25070 

25000 REM 33 IEEE IE DEDE DEDE IE IE IEEE DE IEEE EEE RH 
25010 REM Error 

250290 REM 63% J3EIEIEIE IEEE E IE DE IE IEEE DEE IE IE IE IEEE IEEE 
2505308 PRINT:PRINT x3 

250240 SOUND 1,10920,100 

25050 FOR i=1 TO 1500 

25060 NEXT à 

25070 RETURN 


Módulo 4.4.4: O «menu» 
Trata-se de um módulo de menu normal. 
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Módulo 4.4.4: linhas 11000-11210 


11DDB REM ISEC IEIEIEIEIEIE IE IEIEIEIEIE IEEE E 

11010 REM Main Menu 

1102D REM SESEIEIEIEIEIEICIEICIEICICIEICIE ER RR 

ÍiGSOB WHILE z<>7 

119240 CLS 

119050 PRINT"COMMANDS AVAILABLE: " 

110608 PRINT 

11970 PRINT "1) Input new items" 

11280 PRINT "2) Enter new types" 

11990 PRINT "X) Search/Delete" 

11190 PRINT "4) Generate questions" 

11110 PRINT "&) Display or reset score" 

11120 PRINT "6) Save data to tape” 

111Z0 PRINT "7) Stop" 

11140 PRINT 

11150 INPUT"Enter choice: ",z 

11160 IF z>2 AND z<7 AND it=Q0 THEN x$=" 
“et NO DATA YET sx! = GOSU 

B 25000: z=9 

11170 ON z GOSUR 1JBD0, 12000, 20000, 172000 

519000, 22000 

111820 WEND 

11198 CLS 

11202 LOCATE 12,11:PRINT "CLASSROOM CLOS 

ED" 

ii2Zig END 


Módulo 4.4.5: Estabelecimento de tipos de perguntas 


No decurso da introdução de módulos posteriores, descobrirá que o «MultiQ» 
prevê dois níveis diferentes de dificuldade nos testes que estabelece. Isso é feito com 
base em tipos de perguntas. Voltando novamente ao exemplo da utilização do pro- 
grama como orientador da língua francesa, é claramente possível dividir os tipos de 
palavras visualizadas em diferentes grupos gramaticais, tais como verbos, substanti- 
vos, adjectivos e assim por diante. Se for visualizada uma palavra inglesa que seja 
um verbo, e das cinco possíveis respostas em francês uma for um verbo, o teste será 
bastante mais fácil do que se todas as cinco respostas possíveis fossem verbos. 

O objectivo do corrente módulo é permitir ao utilizador definir até dez tipos, 
dentro dos quais irão cair as perguntas ou respostas, com a facilidade de marcar uma 
pergunta com um tipo, logo que seja introduzida. Quando o «MultiQ», mais tarde, 
chegar a estabelecer um teste, perguntará ao utilizador se pretende que respostas pos- 
síveis a perguntas sejam retiradas apenas do mesmo tipo, para as respostas correctas, 
ou de toda a provisão de respostas. 


O AMSTRAD FUNCIONAL 191 


Módulo 4.4.5: linhas 12000-12150 


12007 REM 33 IEIEIEIE IE IE IE DE IEIEIEIEIEIE IES IE ICI IE IEEE IE 
iÍ2010 REM New Types 

12020 REM ICI IE IEIEIEIEIEIEIEIEIEIEICIE IEEE IE 
i2030 qft="":WHILE 1 

12040 CLS 

12050 PRINT “Types: ":PRINT 

12860 PRINT "Types so far:":PRINT 

12070 FOR i=0 TO ntypes-i 

12080 PRINT i+1l;") “:;qtypesti) 

12290 NEXT à 

12100 IF ntypes=iQ THEN x3=" ss NO 
ROOM FOR MORE TYPES *xx*"": GOSUR 25000: RE 
TURN 

12110 PRINT: INPUT “Input new type (NC t 
o quit):"s;qg& 

12120 IF qg=""" THEN RETURN 

12130 qtypef(ntypes)=qf 

12140 ntypes=ntypes+i 

12159 WEND 


Ensaio 


Deverá agora estar em posição de executar o programa e introduzir até dez tipos 
de perguntas. Pode confirmar a aceitação dos tipos parando o programa e escrevendo: 


FOR I=0TO 9:PRINT QTYPES(D:NEXT ENTER] 


Módulo 4.4.6: Pesquisa dicotómica 


Trata-se de um módulo de pesquisa normal, que trabalha alfabeticamente na 
base de respostas a perguntas. Note que, tal como descobrirá quando introduzir o 
módulo dos novos itens, dentro de alguns momentos, cada resposta é precedida por 
um só carácter (0-9), para indicar de que tipo se trata. O ficheiro será seleccionado, 
primeiro que tudo, com base nos tipos e, dentro destes, com base na ordem alfabéti- 
ca das respostas. 


Módulo 4.4.6: linhas 14000-14110 
14000 REM 53463 3€ IE JE IEDE IE DESDE DEDE IEEE DEDE IEEE IEEE IEEE 


149010 REM Binary Search 
14928 REM TETE IEIEIEIETEIEIEIEIEIEIE REI IEE E IEIE EIIEE EE E 


14030 IF it=Q0 THEN ss=0: RETURN 
14940 po=INT(LOG(it)/L06(2)):ss=2“po-l 
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14850 FOR i=po TO QB STEP -1i 

14060 ss=ss+2“ix((arrayf(ss,D):t1ig)-(arr 
ayt(ss,D)<tig)) 

14070 IF «s<QB THEN ss=0 

14090 IF ss:it-i THEN ss=it-l 

140908 NEX: à 

14100 IF nrrayg(ss,0)<tif THEN ss=ss+1 
14110 RETURN 


Módulo 4.4.7: Inserção de um item 
Trata-se de um módulo de inserção normal. 


Módulo 4.4.7: linhas 15000-15110 

159908 REM IJ 363 IEIEIEIEIE IE IE FE IE IEEE SE IEEE IE EE E E A 
159010 REM Insert Entry 

159020 REM 65336363 3E3€3E 36 36 3E JE IE ICI IE IE IE IE TETE IE IE IEEE EE 
15958 FOR i=it TO ss+1i STEP -1 

159040 arrayfg(i,D)=arrayg(i-t,0) 

1509050 arrayg(i.il)=arrays(i-i,i) 

iõSBd6M NEXT i 

15070 arrayg(ss,B)=tiz 

15080 arrayt(ss,1)=t2s 

15090 it=it+i 

iZida GOSUB 14000 

15110º RETURN 


Módulo 4.4.8: Rastreio dos tipos 


Introduzimos já o módulo que permite o registo dos tipos, mas precisamos tam- 
bém de dar ao programa a possibilidade de registar as quantidades de cada tipo exis- 
tente no ficheiro e onde cada grupo de tipos começa. 

O registo das quantidades de cada tipo é tratado pelo módulo de introdução, o 
qual apenas adiciona 1 ao elemento relevante do quadro NTYPE. Este módulo é 
chamado sempre que é feita uma nova entrada ou apagamento. O seu objectivo é re- 
gistar no outro lado de NTYPE os totais acumulados de tipos de O a 9. As respostas, 
eventualmente, serão organizadas por tipos dentro do ficheiro principal, pelo que o 
conhecimento do total de itens que se incluem nos tipos de O a 2, por exemplo, 
indica-nos onde se iniciam os itens sob o grupo 3. 


Módulo 4.4.8: linhas 16000-16080 
16209 REM SEE SETE IEEE TIE DE IE DE IE DIE DE IE DEDE DEE IE DETECTED E 


169010 REM Update 
16229 REM SEDE IE SEE TETE IE DEDE IE IE IE TETE IE TETE E TETE DE IEEE IE DEE E 


INFORMÁTICA 4 — 13 O AMSTRAD FUNCIONAL 193 


16030 su=Q 

1649240 FOR i=8 TO 9 
16050 ntype(li,i)=su 
16060 su=su+ntype(B,i) 
16070 NEXT à 

164889 RETURN 


Módulo 4.4.9.: Inserção de um novo item 


Trata-se de um módulo sem complexidade, que permite ao utilizador introduzir 
uma nova pergunta e resposta, ligando-a depois a um tipo. 


Módulo 4.4.9: linhas 13000-13300 


13000 REM 33 3EIEIEIEIEIE TETE IE IE TETE IE IE IE IE IE IE DEI IE IE IE IE IEEE 


135010 REM New Items 
ÍZD2DB REM IEEE IE IE IEEE TETE IE IEIE IE IE IE IE IEEE IE ICI IE IEEE 


13030 WHILE 1 


13040 CLS 
139050 PRINT "New items: ":PRINT 
1382690 IF it=500 THEN LET x$&=" IICA IICA 


** NO MORE ROOM “xxx xesx": GOSUB 25000: R 
ETURN 

139070 PRINT"Enter item specified" 

132890 PRINT"'1*º to return to main menu” 
1:090 PRINT 

13100 PRINT namezg(D); 

13110 INPUT “:";tis 

13120 IF ti$=""" THEN RETURN 

13130 PRINT nameg(i); 

131408 INPUT ":";t2s 

13150 IF t2$="N" THEN RETURN 

135160 PRINT:PRINT “Types:":PRINT 

13170 FOR i=0 TO ntypes-i 

13180 PRINT i+is") "sqtypegti) 

13190 NEXT i 

13200 PRINT: INPUT "Input number of type: 
” st3 

13210 t3=t3-1 

13220 IF t3S<B OR tS>ntypes THEN t3=0 
132308 PRINT: INPUT “Are these correct (y/ 
MD'sqs 

13240 WHILE LOWER$ (q8)="y" 

13250 ntype(B,t3)=ntype(d,t3)+1 
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13260 ti$=MIDS(STRECLS)+TI$F,2) 
13270 GOSUB 14090 

132898 GOSUB 15000 

35290 qft="": WEND 

13308 WEND 


Comentário 


Linha 13250: o elemento do quadro NTYPE que representa o tipo especificado 
para a pergunta e resposta correntes é aumentado em 1. É sobre este quadro, como 
vimos, que o módulo de actualização trabalha, no que se refere ao local onde cada 
grupo começa, dentro do quadro. 


Ensaio 
Deverá agora poder executar o programa, especificar tipos e, depois, solicitar a 
opção 1 do menu, para iniciar a introdução de perguntas e respostas. Para verificar 


se os itens estão a ser recebidos correctamente, introduza os seguintes dados: 


PERGUNTA RESPOSTA TIPO 
(Question) (Answer) (Type) 


Qui All 3 
Q222 A222 2 
Q333 A333 l 


e depois abandone o programa. Escreva agora: 


FOR 1=0 TO 2:FOR J=0 TO 1:PRINT ARRAY$(I,J):NEXT J:NEXT 
IHENTER] 


Deverá ver: 


04333 
Q333 
14222 
Q222 
24333 
QUI 


Módulo 4.4.10: Armazenamento de dados 


Agora que podem ser introduzidos itens de dados, é altura de introduzir os dois 
módulos normais que armazenarão e solicitarão itens. 
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Módulo 4.4.10: linhas 22000-23220 


22000 
22810 
22020 
22030 
22040 
22050 
22860 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22174 
22180 
22190 
22200 
22210 
22220 
23000 
23810 
23020 
23030 
23940 
23050 
23060 
23070 
235080 
23090 
23190 
2531109 
23120 
231530 
231408 
23150 
2351608 
253170 
23180 
23190 


REM EE IE TESE IE TESE DE SETE IE IE IE IE ICI DEI IE ICI IE IE IE IEEE E 
REM Save To Tape 

REM SETE ISEL DEE IE IE IE IE IEEE DE ITED IE IE IE IEEE III 
CLS 

PRINT "Save data:":PRINT 
INPUT “Name of file:",files 
OPENOUT filef 

PRINT H9,it 

PRINT Ho9,ntypes 

FOR i=0 TO 1 

PRINT H9,namef(i) 

FOR 5j=2 TO ntypes-l 

PRINT H9,ntypeti,j5) 

NEXT 5 

FOR j=0 TO it-i 

PRINT H9,array$(j,i) 

NEXT 5 

NEXT à 

FOR i=B TO ntypes-i 

PRINT H9,aqtypegt(i) 

NEXT i 

CLOSEOUT 

RETURN 

REM SEI IE IE DIE IE IE IE DE IE IE DE IE IE IE TETE IE IEIE IEEE EI IEEE 
REM Load From Tape 

REM E SE SE SEE SE IE IE IE IE IE IE IE IE IE IE IE IE IE ICI III IE IE IEEE 
CL 

PF «T "Load data:":PRINT 
INHiT "Name of file:",filest 
OPENIN files 

INPUT H9,it 

INPUT H9,ntypes 

FOR i=8 TO 1 

INPUT H9,namef (i) 

FOR 5=0 TO ntypes-i 

INPUT H9,ntype(i,j3) 

NEXT 5 

FOR 5=0 TO àit-i 

INPUT H9,arrays$(5,i) 

NEXT 5 

NEXT à 

FOR i=0 TO ntypes-i 

INPUT H9,aqtypes(i) 
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23200 NEXT i 
23210 CLOSEIN 
23220 RETURN 


Módulo 4.4.11: A pesquisa do utilizador 


Trata-se de um simples módulo de pesquisa, que permite ao utilizador pesquisar 
para a frente e para trás através do ficheiro principal, visualizando e, após a inserção 
do módulo seguinte, apagando itens. 


Módulo 4.4.11: linhas 20000-20220 


2D00B REM JESEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIEIE III IE IEEE IE IE 

22210 REM Search 

20020 REM JESEIEIEIEIEILIEIEIEIEIEIEIEIEIE TETE IE IE IEIEIEIE IE IEEE 

20030 ss-0 

20040 tils="":WHILE t1i$<>"N" AND it>0 
20050 CLS:PRINT “Search:":PRINT 

20060 PFINT "Item number: ";ss+i 

200708 PRINT name$(D);":";MID$(arrays(ss, 
D),2) 

209890 PRINT name$(1);":"s;arrayf(ss,l) 
20090 PRINT “Type:";qtypes(VAL (LEFT$ (Carr 
ay$(ss,0),1))) 

20100 PRINT:PRINT “Commands available:": 
PRINT 

201190 FEN 2:PRINT "ENTER": :PEN 1:PRINTOo" 
for next item" 

29120 PRINT "'&' then number to move poi 
nter" 

221%Z0 PRINT "'d' to delete item" 

22140 PRINT "'Nº to quit” 

22150 FRINT: INPUT "Which do you require” 
tis 

20160 IF tig="" THEN tig=0H1" 

20178 IF LOWER$(tig)="d” THEN GOSUB 2100 

a] 

201890 IF LEFTE&(ti$&,1i)D="H" THEN ss=ss+VAL 
(MIDE(ti$F,2)) 

20190 IF ss:it-i THEN ss=it-l 

202090 IF ss<B THEN ss=D 

22210 wEND 

20220 RETURN 
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Ensaio 


Execute o programa e volte a chamar os dados que armazenou em fita. Utilizan- 
do o item 3 do menu, deverá poder revistar os itens, para trás e para a frente. 


Módulo 4.4.12: Apagamento de um item 
Trata-se de um módulo normal de apagamento. 


Módulo 4.4.12: linhas 21000-21100 

DIBDO REM IE IEIEIEIEIEIEIEIE TETE IE TETE TETE IE DEE TETE DEI IEEE IE 
21010 REM Delete 

DIB REM IICT IE TETE IE IE IEEE TETE IE IE TETE IE TETE IE TIE IE DEI IE 
21030 ntype(B,VAL (LEFTE(arrayf(ss,0),1)) 
»j=ntype(B,VAL (LEFTE(arrayg(ss,2),1)))-1 
21040 FOR i=ss TO it-2 

21050 arrayf£(i,80)=array&(i+1,0) 

21060 arrayf(i,l)=arrayé(i+i,i) 

21070 NEXT à 

210990 it=it-i 

21290 GOSUE 16000 

21100 RETURN 


Ensaio 


Siga o mesmo procedimento tomado para o módulo anterior, mas introduza 
«D» contra um dos itens. Deverá verificar que o item especificado foi apagado. 


Módulo 4.4.13: Organização de perguntas 


Viramos agora a nossa atenção para os módulos que constituem a novidade do 
«MultiQ», através da organização dos testes de escolha múltipla. O módulo corrente 
trata a parte visível do processo, a visualização das perguntas e possíveis respostas, e 
a escolha feita pelo utilizador quanto à resposta correcta. 


Módulo 4.4.13: linhas 17000-17430 

17000 REM 3636363636 IEEE IEIE IE IEIEIE SIE IE IEEE EH 
172010 REM Questions 

17D20 REM SEIEIEIE IE IEEE IEIE IE IE IEEE IE IE IEEE IEEE IE 
17030 CLS 

17240 PRINT "Questions:":FRINT 

179598 PRINT "Do you wish answers to be d 
rawn from one"; 
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17260 


PRINT "type only (harder) or from 


the whole" 

17070 PRINT "stock (easier)”?" 

17080 FRINT:PRINT “1) One type only“ 
17098 PRINT "2) All types" 

17100 PRINT: INPUT “Which:"srq 

17110 IF rq<i OR rq>2 THEN rq=2 

17120 qf="":WHILE LOWER$(g$)<>"n" 

17138 GOSUB 18900 

17140 CLS 

17150 PRINT nameg(1);":";arrayf$(qu(gpos) 
51) 

17160 PRINT:PRINT name$g(B); "=" 

17170 FOR i=0 TO 4 

171880 PRINT i+1l;") ";MID$(array$(qut(i),0O 
1-9 2) 

17190 NEXT à 

172008 ra=9:WHILE ra<i OR ra>5 

17218 PRINT: INPUT “Which is the right an 
swer (1-S)"s;ra 

17220 WEND 

172350 WHILE ra-i=qpos 

17240 PEN S:PRINT 

17250 PRINT "x stststatICIEICIEIE 

17260 PRINT "x a» 

17270 PRINT “x RIGHT! *" 

17288 PRINT "x *! 

172980 PRINT "e xsesestatat atra 

17300 FOR i=899 TO 100 STEP -190 

i7ãiZ SOUND 1L,i,id 

17320 NEXT à 

17330 FEN 1 

173492 right=right+i 

173504 ra=92: WEND 

17360 WHILE ra-i<>qpos AND ra>8 

17%70 PRINT:PRINT “Sorry, that's wrong. 


The correct answer" 


17380 
Ds .! 
17390 
17400 
17410 
17428 
17430 


PRINT “was ";MID$(arrays (maing.0), 


ra=B: NEND 

total=total+i 

FRINT: INPUT "Any more (y/n)"s0% 
WEND 

RETURN 
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Comentário 


Linhas 17040-17100: fizemos já notar que o «MultiQ» é capaz de organizar dois 
níveis de teste. Estas linhas permitem ao utilizador especificar se pretende retirar res- 
postas possíveis de todo o ficheiro ou do mesmo tipo da resposta correcta. 


Linhas 17150-17190: são visualizadas a pergunta e as cinco respostas possíveis, 
que serão seleccionadas pelo módulo seguinte. As posições das cinco respostas possí- 
veis estão contidas no quadro QU, e a posição da resposta correcta em QU é regista- 
da pela variável QPOS. 


Linhas 17230-17350: se a resposta escolhida pelo utilizador, representada pela 
variável RA, corresponder à posição da resposta correcta (QPOS), então a palavra 
«RIGHT» (certo) será visualizada e soará um pequeno trinado. A variável RIGHT, 
que regista o número de respostas correctas, será aumentada em 1. Se for dada a res- 
posta errada, o utilizador será informado de que a resposta está errada e qual a res- 
posta correcta. 


Linhas 17400: TOTAL, a variável que regista o número total de perguntas fei- 
tas, é aumentada em 1. 


Módulo 4.4.14: Selecção das perguntas aleatórias 


Depois de termos conseguido obter a visualização das perguntas e respostas, 
viramo-nos agora para a questão bem mais complexa da selecção das perguntas e res- 
postas. Antes do comentário pormenorizado, daremos uma vista geral pelo método 
envolvido. 

O que pretendemos é seleccionar uma pergunta e a sua correspondente resposta 
correcta, preenchendo depois o quadro QU com cinco números, representando as 
posições das cinco respostas potenciais dentro do ficheiro principal, incluindo a res- 
posta correcta. A pergunta e resposta principais são escolhidas, em primeiro lugar, 
ao acaso, a partir da globalidade do ficheiro e o número da pergunta no quadro 
principal é colocado numa posição aleatória, dentro do quadro QU. 

Depois de a pergunta principal ter sido colocada em QU, têm agora de ser en- 
contradas quatro respostas alternativas. Dependendo da preferência do utilizador 
pela forma mais difícil ou mais fácil do teste, as quatro respostas alternativas serão 
seleccionadas, quer a partir da globalidade do ficheiro principal, quer a partir da 
secção que contém respostas cujo tipo é o mesmo da resposta principal. As quatro 
respostas são escolhidas aleatoriamente na secção apropriada do ficheiro, sendo veri- 
ficado se a mesma resposta não é incluída duas vezes e se não é incluída qualquer res- 
posta que pareça ser idêntica à resposta correcta. 


Módulo 4.4.14: linhas 18000-18210 


1800B REM 363623 3EIEIEIEIEIE IEEE SEI II ICI IE IEEE IEEE EE 
18918 REM Random Select 
189928 REM 33 3EIEIEIEIEIEIEIEIEIEIEIEIEIE ICI IIS IEEE DEE E 
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19939 mainq=INT(RND+*(it)) 

id ctype=VAL (LEFT$(array$ (mainq,9),1) 
18950 ri=ntype(i,ctype) 

18968 r2=ntype(B,ctype) 

18970 IF r2<5 OR rq=2 THEN ri=6:r2=it 
18980 qpos=INT(RND+*«5) 

189990 FOR i=8 TO 4 

18190 duff=mainq 

18110 dup=1:WHILE dup=1 AND i<>apos 
18120 dup=0 

18138 duff=r 1+INT(RNDsr2) 

18148 IF MID$(arrays$ (duff,0),2)=MID$(arr 
ay$(mainq,9),2) THEN dup=1 

18150 FOR 5=0 TO i-1 

18160 IF MID$(array$(duff,0),2)=MID$(arr 
ay$(qu(5j),90),2) THEN dup=1 

18178 NEXT 5 

191892 WEND 

18190 qu(i)=duff 

102900 NEXT i 

18210 RETURN 


Comentário 


Linhas 18030-18040: a pergunta e resposta principais são seleccionadas e a res- 
pectiva posição armazenada em MAINQ. O tipo da resposta é registado pela variável 
CTYPE. 


Linhas 18050-18070: as duas variáveis, R1 e R2, registam o princípio e o fim da 
parte do ficheiro a partir da qual as perguntas devem ser retiradas. Se o utilizador ti- 
ver especificado a parte mais difícil do teste, então R1 e R2 serão reguladas para 
apontarem para o princípio e fim do grupo de perguntas do mesmo tipo da pergunta 
principal. Se acontecer haver menos de cinco perguntas nesse grupo, de modo que se- 
ja impossível escolher cinco respostas diferentes, ou se o utilizador tiver especificado 
a forma mais fácil de teste, R1 e R2 serão reguladas para o princípio do ficheiro. Se 
o utilizador especificar a forma mais difícil de teste, e verificar que o programa não 
lha proporciona, a razão provável será não existirem respostas suficientes do mesmo 
tipo da pergunta principal. 


Linha 18080: QPOS é a posição da resposta correcta no quadro das cinco res- 
postas possíveis. 


Linhas 18090-18200: este ciclo escolhe as quatro respostas alternativas a partir 
da zona do ficheiro indicada por R1 e R2, estando cada uma temporariamente arma- 


O AMSTRAD FUNCIONAL 201 


zenada na variável DUFF. Dentro do ciclo, são efectuadas verificações comparativas 
da nova resposta com a resposta correcta, que poderá encontrar-se em qualquer par- 
te de QU, e as respostas previamente colocadas em QU. Note que não bastará verifi- 
car se a mesma resposta no ficheiro principal não se encontra duplicada. Duas per- 
guntas de diferentes partes do ficheiro principal podem perfeitamente ter respostas 
idênticas. No final do ciclo, QU contém as posições de cinco respostas diferentes, 
dentro do ficheiro principal. 


Ensaio 


A única forma efectiva de ensaiar estes módulos é introduzindo um corpo sufi- 
ciente de dados, para permitir a criação de testes. O melhor ensaio curto seria, em 
primeiro lugar, registar dois tipos de perguntas, intitulados TYPE 1, TYPE 2... 
TYPE 6. Introduza depois de uma série de perguntas sob a forma QI, Q2... Q1O, 
com respostas sob a forma Al, A2... Al0. O tipo para as primeiras cinco perguntas 
deverá ser TYPE 1, sendo as restantes perguntas TYPE 2, ... TYPE 6. Isso propor- 
ciona um conjunto de perguntas capaz de gerar a forma mais difícil de teste e cinco 
outros com apenas uma pergunta cada um. 

Chame o gerador de perguntas aleatórias e especifique a forma mais difícil de 
teste. Deverá verificar que pode continuar a responder a perguntas, sendo correcta- 
mente informado sobre se as suas respostas estão correctas ou erradas. Quando é es- 
colhida uma pergunta das cinco primeiras, as cinco respostas deverão encontrar-se 
na gama de 1 a 5. Quando são escolhidas outras perguntas principais, deverá poder 
ver se as respostas são retiradas da globalidade do ficheiro de 10 perguntas. 


Módulo 4.4.15: Cálculo da pontuação 


O retoque final a dar ao programa será possibilitar-lhe o cálculo de uma pontua- 
ção significativa para o teste. Isto não é tão fácil como parece, visto que não se trata 
apenas de pegar no número de respostas correctas para fazer uma percentagem do 
total. Se o utilizador apenas especificar a primeira resposta em cada teste, isso será, 
em média, a resposta correcta uma vez em cada cinco perguntas. Uma pontuação 
imediata de 20% pode indicar que o utilizador não tem qualquer pista quanto à res- 
posta correcta. A solução adoptada consiste em subtrair um quinto do total de per- 
guntas (o número que poderia esperar-se acertar por pura sorte) às respostas correc- 
tas e expressar esse valor como uma percentagem de quatro quintos do número total 
de perguntas. 


Módulo 4.4.15: linhas 19000-19110 

17000 REM 3 JEIEIEIE SETE DEDE DEDE IE IE IE IE IE ICI II IEEE A 
19810 REM Score 

19220 REM SEDEIEIE TETE IE DEDE IE IE IE IE DEDE IE IEEE IEEE IEEE A 
190308 CLS 

19940 PRINT "Score: "“:FRINT 

19250 IF total=B THEN x$=" JEIEIEIEIEIE IEEE 
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NO SCORE YET xxx xxexx": GOSUR 25000: RETU 
RN 

19260 PRINT "Total answers: "; total 

19070 PRINT "“Correct answers:";right 
1992892 PRINT:PRINT "Score:"; INT((right-to 
tal/5)/(total*D.9) *100+0.5); "A" 

19990 PRINT: INPUT "Do you wish to reset 
score (y/n)"s;qf 

19120 IF LOWER$&(g$)="y" THEN total=B:rig 
ht=0 

19110 RETURN 


Ensaio 


Execute novamente o ensaio do módulo anterior. Quando tiver respondido a al- 
gumas perguntas, regresse ao menu principal e chame o módulo de pontuação. Deve- 
rá verificar que a pontuação que lhe é dada faz pouco sentido, embora não seja fácil 
relacioná-la exactamente com o número de respostas correctas dadas. Deverá ainda 
ser-lhe apresentada a opção de recolocar a pontuação em zero e começar um novo 
teste a partir do princípio. 

Se a execução deste ensaio foi satisfatória, o programa estará pronto a ser utili- 
zado. 
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CAPÍTULO 5 


Questões financeiras 


Neste capítulo final, viramos a nossa atenção para um importante aspecto até 
agora negligenciado: o 464 e o dinheiro. Trata-se de um assunto que não pode, rea- 
listicamente, ser ignorado, justificado pela forma soberba como os microcompu- 
tadores lidam com os assuntos financeiros. Raramente as somas envolvidas são vas- 
tas — ou, se O são, é pouco provável que sejam tratadas por micros de preço acessi- 
vel — e os cálculos envolvidos são geralmente simples, tratando-se de operações de 
adição e subtracção, respectivamente quando o dinheiro entra ou sai. 

A verdadeira vantagem do microcomputador, no entanto, não consiste apenas 
no facto de tratar com dinheiro, já que isso também o cérebro humano pode fazer. É 
na capacidade que o microcomputador tem de armazenar informação que marca 
pontos, bem como na capacidade de retirar rapidamente a informação e apresentá-la 
de modo que possa imediatamente ser compreendida. Os dois programas deste capí- 
tulo exemplificam tais capacidades, permitindo um deles que o utilizador mantenha 
vigilância apertada sobre uma conta bancária e o outro permitindo a simples elabo- 
ração de um conjunto de contas. 

Os dois programas incluídos no capítulo são: 


BANQUEIRO: mantém um registo ordenado dos pagamentos a débito e a cré- 
dito de uma conta bancária. 


CONTABILISTA: compila um conjunto de contas em formato tradicional. 


PROGRAMA 5.1: BANQUEIRO 
Função do programa 


O objectivo deste programa é permitir ao utilizador manter um registo claro e 
continuamente actualizado de uma única conta bancária, as designações dos paga- 
mentos, a respectiva data e quantias, incluindo a possibilidade de especificar não 
apenas pagamentos simples, mas também o escalonamento de receitas e despesas, in- 
dependentemente da irregularidade dos prazos. O programa está concebido para tra- 
tar uma conta durante o período de um ano civil. 
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JANUARY 


DAY & DETAILS ITEM BALANCE 

Balance forward 2.09 
2 GROCERY 45.67- 45.67- 
4 GAS 23.45- 69.12- 
15 SALARY 567.89 498.77 
17 TELEPHONE 51.11- 447.66 
19 MORTGAGE 234.00- 213.66 
21 GARAGE 12.34- 281.32 
26 ELECTRICITY 34.56- 166.76 

Fig. 5.1 — Impressão de écran do «Banqueiro» 


Módulo 5.1.1: Inicialização 
Trata-se de um módulo normal de inicialização. 


Módulo 5.1.1: linhas 10000-10160 


1IBODO REM 3EIEIEIEIEIEIEIEIE IE TETE IE IE IEIE TETE IE DEI IE ICI IE DEE 
18010 REM Initialisation 

10028 REM 3€3€IEIEIEIEIE IE IEEE IE DE IE IE IE IE II DIET IEEE 
19030 MODE 1 

19040 WHILE in=Q 

19050 in=l:cr$=CHR$(13): 

19060 DIM a$(99,1),a(t99,1):a(B,1)=999 
19070 RESTORE 

iB08B DIM mos(ii) 

19090 FOR i=0 TO 11 

iIB1IDA READ mo$(i) 

192110 NEXT i 

19120 DATA January,February,March,April, 
May June |. 

iÍB130 DATA July, August , September ,Dctober 
«November , December 

191408 WEND 

19150 INK 2,24: INK 1,3: INK 2,12 

12160 WINDOW &1,1,48,16,25 


Comentário 
Linha 10060: o quadro A$ será utilizado para armazenar as designações de pa- 


gamentos e uma cadeia especial, mais adiante explicada, que registará os meses em 
que determinado pagamento deve ser feito. O quadro numérico A armazenará as 
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quantias de cada pagamento e o dia do mês em que este é feito. A regulação de 
A(0,1) para 999, um dia de mês impossível, é utilizada pela rotina de selecção poste- 
rior para apagar o final do ficheiro. 


Linhas 10080-10130: este ciclo lê os nomes dos meses do ano para o quadro 
MOS. 


Módulo 5.1.2: O «menu» do programa 


Trata-se de um módulo de menu normal, com a possibilidade adicional de o uti- 
lizador ser informado sobre se o programa é solicitado a fornecer resultados antes de 
quaisquer dados terem sido introduzidos. 


Módulo 5.1.2: linhas 11000-11210 


11000 REM 3636363633 3EIEIEIEIEIEIEIEIEIE IE IE IE IE IEEE IEEE IEEE 

119010 REM Menu 

11020 REM 33 3E3E3EIEIEIEIEIEIEIEIEIEIEIEIEIE IE IE IE IEIEIE IE IE ICI 

11030 CLS:CLS HK1:PEN 2:PRINT TAB(198);"BA 
NKER"; TAB(18B);"======": PEN 1:WINDOW 1,40 
,54,25 

119040 z=B0:WHILE z<>6:CLS 

11050 PRINT "“Commands Available: ":PRINT 

11060 PRINT "1) New Payments" 

11070 PRINT "2) Examine/Delete Payments" 
110980 PRINT "3) Print Statement" 

11090 PRINT "4) Save File" 

11100 PRINT "5) Load File” 

11110 PRINT "6) End" 

11120 PRINT: INPUT "Which do you require: 


eta 
11130 WHILE pa=Q AND (z=2 OR z=3 OR z=4) 
11140 PRINT:PRINT:PRINT" xe. NO DAT 


A ENTERED YET *****: SOUND 1, 1000, 1BB:F0 
R i=i TO 1500:NEXT i 

11150 z= 

11160 WEND 

11170 ON z GOSUB 12000, 1Z000, 14000, 15000 
, 16000 

11189 WEND 

11199 CLS 

11208 LOCATE :1,11:PRINT "CLOSED FOR BUS 
INESS" 

11218 END 
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Módulo 5.1.3: Introdução de novos itens 


Trata-se de um módulo de introdução mais complexo do que aqueles que temos 
vindo a utilizar, pela simples razão de que as próprias entradas são mais complexas. 
Para cada item registado é preciso conhecer cinco factos: se o pagamento é um crédi- 
to ou um débito (dinheiro recebido ou gasto), a designação do pagamento, a quan- 
tia, os meses em que o pagamento é devido e o dia do mês em que o pagamento é 
efectuado. 


Módulo 5.1.3: linhas 12000-12400 

12000 REM IIEIEIEIEIEIEIEIEIE TETE IEIEIEIEIEIEIE IE IE IE ICI EI EE 

12010 REM Enter New Items 

12028 REM 32363 IEIEIEIEIEIEIE IE IE IE IEIE IE IE IE IE IE IEEE IEEE 

12030 CLS 

12240 PRINT "New items: ":PRINT 

12050 PRINT "1) Credit":PRINT "2) Debit"” 

12060 PRINT: INPUT "Which do you require: 

"scd:cd=cd-i 

12070 qf="":WHILE qf="" OR LEN(gqg$) >18:PR 

INT:PRINT "Name of payment (max. 18 char 

Ss)": INPUT ":",q$:WEND 

12080 PRINT: INPUT "Amount:",q 

12090 en=i 

12100 WHILE en 

12110 PRINT: INPUT "Months (e.g.B19049710) 

2" ,r$: PRINT 

12120 en=D:FOR i=i TO LEN(r$&) STEF 2 

12130 m=VAL (MID$(r&,i,2))-1 

12140 IF m<B OR m>1i THEN PRINT:PRINT " 
xe x* INVALID MONTH INPUT xxx": SOUN 

D 1,190092,100:en=1:i=LEN(r$):FOR 5j=1 TO 1 

IBB: NEXT 5 

12150 IF en=B8 THEN PRINT moftm);"/"; 

12160 NEXT i:zPRINT:PRINT 

12170 WEND 

12180 INPUT "Day of payment: ",s 

12190 PRINT: INPUT "Are these correct (y/ 

nD"st$g 

i2200 IF LOWER$(t$)<>"y"” THEN RETURN 

12210 pa-pati 

12220 j=pa-l 

122530 WHILE s<a(ABS(5j),1) AND j>=2 

12240 FOR k=Q TO 1 

122580 as(j+i,k)=af(s,k) 
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12260 a(lj+i,k)=atj,k) 

12270 NEXT k 

12280 5=5-1 

12290 WEND 

12300 j=5+1 

12310 a$(j,1)="D00000000000 " 
12320 FOR i=i TO LEN(r$) STEP 2 
12338 m=VAL (MIDE(r$,1,2)) 

12340 asg(5,1)=LEFT$(ag(5s,1)D,m-id+" 1" +RIG 
HT$(a$(5,1),12-m) 

12350 NEXT à 

12360 a$(5,0)=qf 

12370 a(j,8)=q 

12380 a(lj,l)=s 

12398 IF cd=1i THEN a(j,0)=-a(5,0) 
124008 RETURN 


Comentário 


Linhas 12040-12060: o programa precisa de saber claramente se o item deve ser 
pago ou recebido, se se trata de um débito ou de um crédito. Isto é registado sob a 
forma da variável CD (Crédito/Débito). 


Linhas 12090-12170: os meses em que o pagamento deve ser feito são introduzi- 
dos sob a forma de uma cadeia de números de dois dígitos, sem qualquer separação 
entre eles. Assim, se fosse necessário efectuar um pagamento trimestral em Feverei- 
ro, Maio, Agosto e Novembro, a entrada de dados seria «02050811», representando 
os meses 2, 5, 8e 11. O ciclo FOR que começa na linha 12120 analisa a entrada da 
cadeia, para se certificar de que, de facto, ela proporciona uma série de valores de 
meses com sentido e informa o utilizador se for cometido um erro. Como verificação 
suplementar, o ciclo imprime os nomes dos meses especificados, tal como se encon- 
tram registados em MOS, para que o utilizador possa determinar que não são apenas 
meses com sentido, mas, de facto, aqueles que se pretendem. A rotina da linha 12090 
repete-se, caso tenha sido feita a introdução de um mês inválido, já que o ciclo WHI- 
LE depende do valor de EN (Error Number, ou seja, número errado), ciclo que será 
activado se for feita uma entrada incorrecta. Note a utilização de uma janela para a 
entrada de dados relativos a meses, a qual permite o pagamento das linhas especiífi- 
cas envolvidas sem que se perca de vista o que já foi introduzido. 


Linha 12210: neste ponto, a informação introduzida foi já verificada e confir- 
mada pelo utilizador, pelo que a variável encarregue de registar o número de itens do 
ficheiro, PA, é aumentada em 1. 


Linhas 12230-12300: o objectivo deste ciclo é colocar o novo item na ordem cor- 


recta dos dias, dentro do ficheiro. Em vez de fazer duplicados dos pagamentos que 
se referem a mais de um mês, o sistema adoptado é o de armazenar todas as entradas 
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apenas uma vez, por ordem de dias. Quando se pretende a instrução para um mês 
determinado, uma parte posterior do programa passa em revista todas as entradas, 
verificando cada uma delas, para ver se se situam antes ou depois do mês especifica- 
do, necessitando ser tomadas em consideração aquando da determinação do balan- 
ço. 

Ao ser inserido o novo item, o ciclo das linhas 12230 a 12290 começa pelo valor 
de dia mais alto (que é o valor fictício 999, inserido no módulo de inicialização) e vai 
avançando em sentido descendente, até encontrar um pagamento com um valor de 
dia menor do que o valor de S, o valor de dia do item acabado de introduzir pelo uti- 
lizador. Se o ciclo não encontrar a posição correcta, desloca o item que acabou de 
examinar um lugar para cima. Por outras palavras, à medida que o ciclo analisa ao 
longo do ficheiro, desloca também consigo uma linha sobressalente. Quando a posi- 
ção correcta é encontrada, já a linha sobressalente se encontra na posição certa. Co- 
mo acção final, o valor de J, que regista a posição da primeira entrada encontrada e 
que possuía um pagamento com valor de dia menos do que S, é aumentado em 1, pa- 
ra apontar para a linha sobressalente. 


Linhas 12310-12350: a tarefa seguinte consiste em traduzir a lista de meses intro- 
duzida para um formato que possa facilmente ser analisado por partes posteriores do 
programa. O expediente simples adoptado é o de utilizar uma cadeia de 12 zeros, re- 
gistando meses em que q pagamento não deve ser feito, usando depois um ciclo para 
alterar um zero para um, referente a meses em que o pagamento deve ser feito. As- 
sim, no caso do nosso exemplo de pagamentos trimestrais, a cadeia eventual deveria 
apresentar «010010010010». 


Linhas 12360-12390: a nova informação é colocada nos quadros principais. Se a 
variável CD registar que o item é um débito, a quantia será multiplicada por — 1, 
tornando-a negativa. 


Ensaio 


Execute o programa e solicite a opção 1 do menu. 
Introduza um novo item, tal como segue: 


Débito (opção 2 da solicitação) 
Nome: TEST 

Quantia: 100 

Meses: 02050811 

Dia: 15 


Depois de uma pausa, deverá regressar ao menu principal. Pare o programa uti- 
lizando a opção 5 do menu. Introduza agora: 


PRINT A$(0,0),A$(0,1),A(0,0),A(0,1) 
O resultado deverá ser: 


TEST 010010010010 — 100 15 
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Módulo 5.1.4: Visualização da instrução 


Embora haja ainda mais módulos a chegar, a tarefa final da parte principal do 
programa consiste em pegar nos itens que foram introduzidos utilizando o módulo 
anterior e compilá-los numa instrução para qualquer mês especificado do ano. A ins- 
trução incluirá um cálculo do balanço levado a cabo em meses anteriores e visualiza- 
rá por completo todos os pagamentos do mês, bem como o balanço contínuo criado 
por cada pagamento. 


Módulo 5.1.4: linhas 14000-14290 

14000 REM 4336 IEIEIEIEIEIEIE TETE IE IE IEIEIE IE IE ICI III II IEEE 
14210 REM Compile Statement 

14020 REM JE IEIEIEIEIEIEIE TE DEIEIE DE IEIEIE IE IEIEIE IE ICI IEEE 
iÍ40J0 sum=Q 

14040 CLS:PRINT "Statement: ":PRINT 

14050 q=0:WHILE q<i OR q>12 

14060 PRINT: INPUT "Number of month for s 
tatement (i-i2):",aq 

14070 WEND 

14080 FOR 5j=1 TO q-i 

149290 FOR i=B8 TO pa-i 

141900 IF MID$(af(i,1),5,1)="1" THEN sum= 
sumt+a (1,9) 

14110 NEXT à 

14120 NEXT 5 

i41Z0 PRINT: INPUT "Send statement to pri 
nter (y/n)"“;p$:ch=0: IF LOWERS(p$)="y" TH 
EN ch=8 

14140 CLS:PRINT HEch, TAB (20-LEN (mos (q-1) 
3/2) ; UPPER$ (mosf (q-1)): PRINT HEch, STRINGS ( 
DP) 

14150 PRINT HKch,"DAY & DETAILS"; TAR(26); 
“ITEM BALANCE" 

14160 PRINT Hch,STRING$(39,"—") 

14170 PRINT Ech,” Balance forward"s;:PE 
N 2-S6GN (sum+B. B01): PRINT HEch, TAB (32):U5 
ING "HHHH. HH—": sum 

141890 FOR 1i=D TO pa-i 

14190 d=90:WHILE MID$(a$(i,1i),g,1)="1" AN 
D d=8:d=1 

14200 PEN 1:PRINT ch USING "4H &"sali,l 
)J;as(ti,O): 

14210 PEN 2-SGN(a(i,D+D.001)):PRINT Hch, 
TAB (23); USING "HHHH. HH-—" sa(li,D); 
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14228 sum=sumta(i,D) 

14238 PEN 2-S6GN(sum+B. 001): PRINT HKch,TAB 
(32) USING "HHHH. HH—": sum 

14240 WEND 

14250 NEXT izPEN 1 

14268 IF ch=8 THEN RETURN 

142708 PRINT:PRINT "Any key to continue: " 

14280 WHILE INKEY$="": WEND 

14290 RETURN 


Comentário 


Linha 14030: a variável SUM será utilizada para guardar o balanço na conta — 
tanto o balanço efectuado como o balanço após cada item. 


Linhas 14080-14120: desde que a instrução não se destine ao primeiro mês, si- 
tuação em que não haverá lugar à realização de balanço, estes dois ciclos analisam 
toda a lista de pagamentos uma vez em cada mês precedente do mês registado na ins- 
trução. Desta forma, cada pagamento é examinado, para ver se é feito em qualquer 
dos meses precedentes, caso em que a quantia apropriada é adicionada ao total, em 
SUM. No final dos dois ciclos, SUM contém o total completo de quaisquer altera- 
ções ao balanço desde o início do ano. (A manutenção de um balanço completo, in- 
cluindo qualquer quantia, em dinheiro, que se encontrasse na conta no início do ano, 
pode ser facilmente efectuada através da introdução do balanço do ano transacto co- 
mo crédito no 1.º de Janeiro.) 


Linha 14170: um pormenor a notar acerca da impressão de SUM, neste pronto, 
é que, se a quantia for negativa, a cor de impressão será alterada para vermelho. En- 
contrará as mesmas técnicas frequentemente utilizadas nas linhas que se seguem. No- 
te igualmente a utilização do comando PRINT USING, que nos permite impor um 
formato padrão para o número a ser impresso e assegurar que a instrução será clara- 
mente apresentada, com todos os pontos decimais alinhados. 


Linhas 14180-14250: este ciclo analisa toda a lista de pagamentos, enquanto o 
ciclo nas linhas 14190-14240 selecciona apenas aqueles que têm um «1» na posição 
relevante da cadeia que regista os meses em que o pagamento deve ser feito. Quando 
um pagamento deve ser feito no mês especificado para a instrução, o ciclo imprime o 
dia, A(I,1), o nome, A$(1,0), a quantia, A(I,0), e, finalmente, o balanço produzido 
pelo pagamento, obtido pela adição da quantia ao total anterior em SUM. Os itens 
de débito são impressos em vermelho, excepto o dia. O écran é mantido em colunas 
ordenadas, apesar do facto de os valores poderem variar em extensão, através da uti- 
lização de TAB, que inicia os itens numa posição padrão do écran, e de PRINT 
USING. 
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Ensaio 


Introduza os dados do teste que utilizou para o último módulo. Ao regressar ao 
menu principal, especifique a opção 3 para imprimir a instrução. 

Comece pelo mês 1 e, quando estiver satisfeiro, volte ao menu principal e impri- 
ma a instrução para o mês seguinte. Deverá verificar que a maioria das instruções es- 
tão em branco, já que a maioria dos meses não têm pagamentos. Os meses de Feve- 
reiro, Maio, Agosto e Novembro, no entanto, têm todos um pagamento, que deverá 
estar claramente visualizado. 


Módulo 5.1.5: Ficheiros de dados 
Trata-se de um módulo normal de ficheiro de dados. 


Módulo 5.1.5: linhas 15000-16140 


ISDBDG REM IEIEIE IE IEIEIE IE IE IEIE IE IEIEIE IE IEIE III IE IEEE 
15810 REM Save To Tape 

15020 REM SIE IEIEIEIEIEIEIEIEIEIEIEIEIEIEIEICIE ICI ICI IEEE 
159030 CLS:qf="":WHILE LOWER$(qé)<>"y"” 
15240 INPUT "Name of file to be saved:", 
fist 

15050 PRINT:PRINT "File to be saved is 
sfif 

15060 PRINT: INPUT "Is this correct (y/n) 
"sq$ 

15070 wEND 

15080 OPENOUT fis 

15090 PRINT H9,pa 

15190 FOR i=2 TO pa-i 

15110 PRINT H9,a$(i,D);cr$;afg(i,l);cr$;a 
(i,B);crg;ati,i) 

15120 NEXT à 

15138 CLOSEOUT 

15140 RETURN 

160900 REM 333 JEJEIEIEIE IE IDE IE IEEE IE IE IEEE IEEE DE IEEE E 
16010 REM Load From Tape 

16D2D REM III IEIEIEIEIEIEIE IE IE TETE IE IE SE IE IE IE IEEE IEEE IE IE 
16030 CLS:qf="":WHILE LOWERS$ (qé)<>"y" 
1690408 INPUT "Name of file to be loaded: 
3fis 

16058 PRINT:PRINT "File to be loaded is 
“"sfis 

16860 PRINT: INPUT "Is this correct (y/n) 
"5 q8 
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16970 WEND 

16989 OPENIN fis 

16898 INPUT 49,pa 

16180 FOR i=0 TO pa-l 

daria INPUT 49,a$(i,0),a$(i,l),ati,D),a( 
1, 

16128 NEXT i 

16138 CLOSEIN 

161490 RETURN 


Módulo 5.1.6: Alteração e apagamento de itens 


Trata-se, tal como em «Nnúmero», de um módulo de alteração muito simples 
para o utilizador, funcionando, desta vez, na base de um ciclo FOR que analisa os 
itens um por um. 


Módulo 5.1.6: linhas 13000-13250 

135900 REM 66 E DE IE E E DE TE E TETE TETE IE DE DE DE DE DE DEE E TE E 
13810 REM Examine/Delete Items 

13DB20 REM IES SEDE JE TETE IE DEDE DE IE IE IE IE IE DEE IE IE IE IEEE IE IDE 
13030 FOR i=9 TO pa-i 

13240 CLS 

13050 PRINT "Payment:";ag(i,DB) 

13069 PRINT "“Amount:";ali,O) 

130708 PRINT "Months: "; 

135089 FOR j5=1 TO 12 

13990 IF MID$(aft(i,1),5,1)="1" THEN PRIN 
T mosg(j-1)5"/"; 

13100 NEXT 5:PRINT 

13110 PRINT “Day of payment: ";ati,l) 
13129 PRINT:PRINT “Commands available:*: 
PRINT 

13138 PEN 2:PRINT "ENTER"; :PEN 1=:PRINT 
next item" 

15140 PRINT "'N" quit” 

13150 PRINT "'AD' delete item" 

13160 q$="":PRINT: INPUT “Which do you re 
quire:",qf 

13170 WHILE UPPERS$ (g$)="AD” 

131892 FOR j=i TO pai 

17199 FOR k=2 TO à 

13200 as(j,k)=as(j+1,k)za(lj,k)=ati+i,k) 
13210 NEXT k,j5 

13220 pa=pa-l:gf=""" 
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13239 WEND 
153240 IF qg="" THEN NEXT à 
13250 RETURN 


Ensaio 


Com alguns dados introduzidos e salvaguardados em fita, chame esta opção. 
Deverá verificar que consegue passar em revista os itens e apagá-los. Se estas funções 
estiverem disponíveis, então o programa deverá estar perfeitamente operacional. 


PROGRAMA 5.2: CONTABILISTA 
Função do programa 


O segundo programa deste capítulo é mais complexo do que o «Banqueiro». A 
sua função é manter dois lados de um simples conjunto de contas, apresentando-os 
em formato tradicional, com alguns itens isolados e outros claramente divididos em 
grupos representativos de diferentes tipos de despesa. O programa, tal como se 
encontra correntemente montado, pretende tratar somas até £ 9999.991!. Quantias 
acima desta são calculadas com exactidão, mas adulteram o formato das contas. 
Se necessitar de itens ou totais de 10 000, ou acima deste valor, será preciso fazer al- 
terações simples aos comandos PRINT USING e ao espaçamento da visualização. 


Módulo 5.2.1: Inicialização 
Trata-se de um módulo de inicialização normal. 


Módulo 5.2.1: linhas 10000-10080 


1BDDD REM III TETE IEIEIE TETE ICE IE TETE ITC IE IEEE IEEE IE EE 
19210 REM Initialise 

10020 REM IE IEIEITEIEIE TETE ICI IE IEIE IE TETE ICI IE IEEE IE TE 
12030 CLS 

19940 WHILE in=0 

19050 in=l:cr$=CHR$(13): 

19060 DIM a$(1,99) ,a(1,99) 

19070 WEND 

190890 MODE 1 


1 Note que se trata de um valor em libras esterlinas, pelo que o valor em escudos acarretará as alte- 
rações a seguir mencionadas. 
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CAR EXPENSES 


REPAIRS 98.21 
PETROL 198.56 
TYRES 54.00 
350.7 
AMSTRAD CPC 464 doa 
HOUSEHOL D 
GAS 45.87 
ELECTRICITY 56.43 
RATES 126.75 
229. 
HOLIDAY Ea aa 
TOTAL: 1293.5898 


Fig. 5.2 — Impressão de écran do «Contabilista» 


Comentário 


Linha 10060: os dois lados das contas, crédito e débito, incluindo os nomes as- 
sociados a cada pagamento, são armazenados nos dois lados dos quadros A e A$. 
Podem ser armazenados até cem itens em ambos os lados, embora esta quantidade 
possa, evidentemente, ser aumentada com facilidade. 


Módulo 5.2.2: O «menu» principal 


Trata-se de um módulo de menu normal, com protecção contra o acesso a certas 
funções antes de terem sido introduzidos alguns dados. 


Módulo 5.2.2: linhas 11000-11220 

11DDB REM SEI IEIEIEIEIEIEIEIEIEIEIE DE IEIEIEIEIE IE IE IEEE IE III 

11914 REM Menu 

11020 REM SS SEIEIEIEIEIEIEIE IE IEIE IE IE IEIE IE IE IEIE IEEE IE IEEE IE 

11030 CLS:PEN 2:PRINT TAB(16); “"ACCOUNTAN 
T's TAB(16);"==========" : PEN 1:WINDOW 1,4 
8,4,25 

11040 z=D:WHILE z<>6:CLS 

11050 PRINT "Commands Available:":PRINT 

11060 PRINT "1) New Headings" 

11970 PRINT "2) Change/Delete Items" 
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11090 PRINT "3) Print Accounts" 

11090 PRINT "4) Save File" 

11100 PRINT "5) Load File" 

11110 PRINT "6) End" 

11128 PRINT: INPUT "Which do you require: 


11138 IF z<4 AND z>0 THEN GOSUB 12000 
11140 WHILE c(cd)=Q0 AND (z=2 OR z=3 OR z 


11150 PRINT: PRINT: PRINT" *+e** NO DAT 
A ENTERRED YET xxx+x*": SOUND 1, 1800, 100: F 
OR i=i TO 1500:NEXT i 

11160 z=0 

11170 WEND 

11188 ON z GOSUB 13000, 16000, 18000, 19000 
, 22000 

111998 WEND 

11200 CLS 

11210 LOCATE 11,11:PRINT "PROGRAM TERMIN 
ATED" 

11220 END 


Módulo 5.2.3: Crédito ou débito? 


De forma diferente à do «Banqueiro», várias partes deste programa precisam de 
saber se está a ser especificado um item de crédito ou de débito, pelo que a rotina 
que solicita esta informação é incluída em módulo separado. 


Módulo 5.2.3: linhas 12000-12110 


12000 REM IIEIEIEIEIEIEIEIEIE IE TETE IEEE ICI IE IEI IEEE IE 
12010 REM Credit or Debit? 

122298 REM 33633 IEIEIEIE IDE IE IE DEE IEEE IE IE IE ICI III IE 
12030 cd=-1:WHILE cd<>B AND cd<>i 

120498 CLS 

120598 PRINT “Credit or debit:":PRINT 
12060 PRINT "1) Credit":PRINT "2) Debit”" 
129790 PRINT: INPUT “Which do you require: 
"ocd:cd=cd-l 

12099 cd$="CREDIT" 

128098 IF cd=1 THEN cd$="DEBIT" 

121090 WEND 

12118 RETURN 
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Módulo 5.2.4: O tipo de item 


Este módulo não tem, em si mesmo, nada de especial, mas fornece uma pista 
quanto à razão pela qual este programa está destinado a ser mais longo do que algo 
parecido com o «Banqueiro». O objectivo do módulo é permitir ao utilizador especi- 
ficar sob qual de três tipos recai um item a ser introduzido. Os três tipos são: 


1) Um item simples («A Single Item»): tudo o que é necessário, neste caso, é o 
nome do item e a quantia. Quando a conta eventual é impressa, os itens individuais 
terão os respectivos nomes impressos sobre o lado esquerdo e a quantia associada na 
coluna principal de valores, sobre a direita. 


2) Um cabeçalho principal («4 Main Heading»): é este o tipo que permite espe- 
cificar grupos de itens dentro da conta geral. Se estava a utilizar o programa para 
preparar a contabilidade doméstica, por exemplo, pode estabelecer «CARRO» como 
um cabeçalho principal de um grupo de itens que inclua pneus, gasolina, reparações 
e assim por diante. Na conta eventual, o nome do cabeçalho principal será impresso 
sobre o lado esquerdo, mas não haverá qualquer quantia impressa junto ao próprio 
cabeçalho principal. 


3) Subtítulos («Subheadings»): tal como foi ilustrado em 2), cada cabeçalho 
principal pode ter a segui-lo uma lista de itens, os quais constituem um grupo separa- 
do. Na contabilidade, os nomes de subtítulos serão impressos sob o cabeçalho rele- 
vante, inseridos a partir da esquerda, enquanto a quantia associada a cada subtítulo 
será impressa sob a esquerda da coluna principal de valores. 


Módulo 5.2.4: linhas 13000-13120 


13008 REM SEJ SEIEIEIEIEIEIEIEIEIE IE IE IEIE IE IE TETE IE IE TESE EI IEEE 
13010 REM Input Headings 

13029 REM SE SEJEIEIEIEIEIEIEIEIEIE IE IE IEEE IE IEEE IEIE II IE 
13030 CLS 

13040 PRINT "New items:":PRINT 

13050 PRINT cd$: PRINT 

13860 PRINT "Is the item:":PRINT 

13070 PRINT "1) A Single Item;" 

13088 PRINT "2) A Main Heading or" 
130998 PRINT "3) A Sub-Heading" 

13180 PRINT: INPUT "(QB to quit)"s;type 
13110 ON type GOSUB 14900, 14000, 15000 
13128 RETURN 


Ensaio 


Após a introdução de todas as partes do programa que não implicam quaisquer 
cálculos, será melhor, provavelmente, que você execute o programa e ensaie rapida- 
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mente o menu. Se especificar que pretende introduzir um novo item, deverá ser-lhe 
perguntado se se trata de um crédito ou de um débito, seguindo-se a solicitação para 
especificar um tipo — embora seja impossível ir mais longe. A outra única função do 
menu que terá algum efeito é a opção 5, que pára o programa. O próprio menu deve 
impedir o utilizador de ter acesso às funções de alteração de dados ou de impressão 
das contas, já que não foram ainda introduzidos dados. 


Módulo 5.2.5: Entrada de itens singulares e de cabeçalhos principais 


Dois módulos distintos estão encarregues da introdução de subtítulos, por um 
lado, e de itens singulares e cabeçalhos principais, por outro. É importante, para a 
compreensão de partes posteriores do programa, que o utilizador tente seguir a for- 
ma como os itens são armazenados e os caracteres indicadores especiais que registam 
o tipo de item. 


Módulo 5.2.5: linhas 14000-14120 

1400D REM 33-IEIEIEIEIEIEIEIE TETE IE IE TETE IE IE IE IE IE IE IE ILE IE IEEE 
149010 REM Single Item or Main Heading 
14020 REM 3EIEIEIEIEIEIEIEIEIEIEIE TETE IE IEIE IE IE IE IEEE IE IE IE IE 
14030 q=0:q$="":r$="" 

14940 PRINT: INPUT "Name of item:",qf 
14050 IF type=i THEN PRINT: INPUT "Amount 
for item:",q 

14068 PRINT: INPUT "Is this correct (y/n) 
“sr$ 

14070 IF LOWER$(r$)<>"y" THEN PRINT:PRIN 
E sex NOT REGISTERED sx! 
: SOUND 1,1090,100:FOR i=i TO 1500:NEXT i 
: RETURN 

14080 IF type=i THEN q$="%"+q$ ELSE q$=" 
»" +q$ 

140998 a$(cd,c(çd))=qgs$ 

14190 af(cd,c(cd))=q 

14110 c(cd)=c(cd)+1 

14120 RETURN 


Comentário 
Linha 14050: tal como foi mencionado na introdução ao módulo anterior, os 
cabeçalhos principais não têm associado qualquer valor, pelo que esta linha apenas 


aceita um valor para itens singulares. 


Linha 14080: não existem zonas de armazenamento separadas para os diferentes 
tipos de itens, além dos lados de crédito e débito dos quadros. Partes posteriores do 
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programa determinarão o tipo de item consultando um carácter indicador especial 
junto ao início do nome do item. Aquele será «o» para um item singular e «*» para 
um cabeçalho principal. 


Linhas 14090-14120: já lhe foi apresentada a variável CD, que regista se um 
item é um crédito ou um débito. Aqui, CD é utilizada para decidir qual o lado dos 
quadros A e A$ em que o novo item deve ser colocado. Além disto, precisamos de 
manter um registo do número de itens do lado do crédito e do débito, já que, geral- 
mente, estes serão diferentes. Isto é feito pelo quadro C. O quadro não foi declarado 
no módulo de inicialização, uma vez que apenas terá dois elementos, C(0) e C(1), 
correspondentes aos lados do crédito e do débito nos quadros principais. Uma vez 
mais, o valor de CD é utilizado para indicar qual dos dois elementos de C deve ser 
usado. Ao aplicar isto, podemos ver que, quando se faz referência a 


A (CD, C(CD)) 
l Z 3 


o que isso significa é: 


1) Um elemento no quadro numérico A. 

2) O lado indicado pelo valor de CD, isto é, um crédito ou um débito. 

3) O primeiro elemento vazio desse lado, determinado por aquilo que já se 
encontra armazenado. 


Ensaio 


Execute o programa e chame a nova opção de entrada. Especifique que pretende 
introduzir um cabeçalho principal no lado do crédito e, depois, introduza TEST 
MAIN para o nome do item — não lhe deverá ser pedido qualquer valor. Chame a - 
opção da nova entrada, uma vez mais, e especifique um item singular do lado do cré- 
dito, com o nome TEST e o valor 100. Agora, faça exactamente a mesma coisa, mas 
do lado do débito das contas. 

Pare o programa a partir do menu e introduza, em modo directo: 


PRINT A(0,0),A(1,0),A$(0,0), AS(1,0)[ENTER] 


Deverá ver: 
0 0 *TEST MAIN *TEST MAIN 
Aplique agora o mesmo procedimento pará a linha 1 dos quadros, ou seja, 


A(0,1), etc. 
Deverá ver: 


100 100 %TEST %TEST 


Finalmente, imprima o valor de C(0) e C(1) — ambos deverão ser equivalentes a 2. 
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Módulo 5.2.6: Introdução de um subtítulo 


A questão da introdução de um novo subtítulo não é tão simples como a da in- 
trodução de um item singular. Por cada subtítulo introduzido, deve ser feita uma ve- 
rificação da presença do cabeçalho principal relevante e o item deve ser colocado 
junto ao seu cabeçalho principal, em vez de ser, simplesmente, arrastado para o final 
dos itens previamente armazenados. 


Módulo 5.2.6: linhas 15000-15120 


15000 REM IE IEIEIEIEIEIEIE TETE IEIEIEIE IE IE IE IES IEIE IE IE IEEE 
159010 REM Sub Heading 

15020 REM SI SEIEIEIEIEIEIEIEIEIEIEIEIEIEICIEIEIEIEIE III IE IEEE 
15030 PRINT: INPUT "Main heading:",qf 
15040 qf="*"+q$ 

15050 pl=-i:FOR i=0 TO c(cd)-1 

15060 IF a$(cd,i)=qf THEN pl=i+i 

15070 NEXT i 

15980 IF pl=-1 THEN PRINT:PRINT " E 
* NO HEADING OF THAT NAME xxx": SOUND 1, 
1000, 100:FOR i=1i TO 1590:NEXT i:zRETURN 
15098 PRINT: INPUT "Name of sub-heading:" 
.q$ 

15100 PRINT: INPUT "Amount:",q 

15110 PRINT: INPUT "Are these correct (y/ 
mMD"sr$ 

15128 IF LOWER$(r$)<>"y" THEN PRINT:PRIN 
TT” sexeesess NOT REGISTERED ssxsssmstae!! 
: SOUND 1099,1098:FOR i=i TO 1500:NEXT i:R 
ETURN 

15138 qf$="$"+q3$ 

15140 FOR i=c(cd)+1i TO pl+i STEP -i 
15150 a$(cd,i)=a$(cd,i-i) 

15168 a(cd,i)=a(lcd,i-l) 

15170 NEXT à 

151989 agt(cd,pl)=q$ 

15190 a(lcd,pl)=q 

15299 c(cd)=c(cd)+1i 

152190 RETURN 


Comentário 


Linhas 15030-15080: é solicitado o nome do cabeçalho principal relevante e feita 
uma verificação dos itens já dentro do ficheiro, para conclusão sobre a existência 
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efectiva do cabeçalho — se assim não for, será impressa uma mensagem de erro, e o 
programa regressa ao menu. 


Linhas 15140-15200: tal como foi mencionado previamente, o objectivo funda- 
mental de um subtítulo consiste no seu aparecimento na contabilidade principal co- 
mo parte de um grupo impresso sob o cabeçalho principal relevante. Para que isto se 
consiga facilmente, o método empregue é o de armazenar o subtítulo no ficheiro jun- 
to ao seu cabeçalho principal. A posição do primeiro item a seguir ao cabeçalho 
principal foi já encontrada pelo ciclo FOR, na linha 15050. Assim, tudo o que resta 
fazer é deslocar para cima todos os itens a partir desse ponto e colocar o novo item 
no quadro, na posição correcta. 


Ensaio 


Introduza os itens especificados para o ensaio ao módulo 5.2.5 e, depois, volte a 
chamar o módulo das novas entradas, para colocar um novo subtítulo no lado dos 
créditos, cujo nome será TEST SUB, com um valor de 200. Faça o mesmo para o 
lado dos débitos. 

Introduza o seguinte, em modo directo: 


FOR I=0TO 2:PRINT A(0,1,A(1,1),A$(0,1),A$(1,D):NEXT I[ENTER] 


Deverá ver: 
0 0 *TEST MAIN *TEST MAIN 
200 200 STEST SUB STEST SUB 
100 100 % TEST 9% TEST 


Imprima os valores de C(0) e C(1), devendo ambos ser 3. 


Módulo 5.2.7: Ficheiros de dados 


Posto que os dados para o «Contabilista» são bastante complexos, talvez seja 
sensato introduzir neste ponto o módulo do ficheiro de dados, de modo a eliminar a 
necessidade de uma constante reentrada de dados durante os ensaios. Uma vez intro- 
duzido o módulo, introduza e salvaguarde os dados especificados para o ensaio ao 
módulo anterior. 


Módulo 5.2.7: linhas 19000-20160 

19000 REM IIEIEIEIEIEIE IE IEIE IE IE SEDE ITR IE IEEE IEEE IEEE 
19010 REM Save To Tape 

19020 REM SSIS IEIEIEIEIEIEIEIEIEIEIE IE IE IE IEEE ICI IE IE 
19030 CLS:q$="":WHILE LOWERS$ (g$)<>"y" 
19948 INPUT “Name of file to be saved:"; 
fis 
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1995090 
;fis 

199068 
"sq$ 

199708 
199898 
19998 
19199 
191108 
191208 
19138 
19148 
191580 
191640 
20099 
209810 
20920 
20930 
20940 
fis 

20050 
“3fis 
20860 
“:q$ 

20078 
220080 
20990 
22100 
20110 
2012090 
22130 
20140 
20150 
221608 


Módulo 


PRINT:PRINT “File to be saved is " 
PRINT: INPUT "Is this correct (y/n). 


WEND 

OPENOUT fis 

FOR i=8 TO 1 

PRINT 49,cti) 

FOR j=90 TO cti)-i 

PRINT 49,a$(i,j);cr$;atli,j5) 

NEXT 5 

NEXT i 

CLOSEOUT 

RETURN 

REM SE SE SESEIE IE IEEE SEI IE SEDE IEEE SETE IEEE IES E 
REM Load From Tape 

REM SESESESESE SE SEI SE SE IE IE IE IEEE IE IREI III IE IEEE E 
CLS:q$="":WHILE LOWER$ (q$)<>"y" 
INPUT “Name of file to be loaded:" 


PRINT:PRINT "File to be loaded is 
PRINT: INPUT "Is this correct (y/n) 


WEND 

OPENIN fis 

FOR i=98 TO 1 

INPUT H9,cti) 

FOR 5j=0 TO cti)-i 
"INPUT 49,a$(i,j),atli,õã) 
NEXT 5 

NEXT i 

CLOSE IN 

RETURN 


5.2.8: Alterações aos itens 


Trata-se de um módulo simples, com algumas características adicionais, que 
contempla o facto de alguns itens não se encontrarem sós, antes fazendo parte de 
grupos de itens sob um cabeçalho principal comum. 


Módulo 


16000 
169810 


5.2.8: linhas 16000-16290 
REMO DE IE DEE IEEE E DE TE IE DEDE IEEE IE IE IE IEEE IEEE IEEE 
REM Changes and Deletions 


222 DAVID LAWRENCE E SIMON LANE 


16928 REM IEIEIEIEIEIEIECIEIEIEIEIEIEIEIE IE IE IE ILE III IEEE IE 
16038 FOR i=B TO c(cd)-i 

169040 d=B:WHILE d=B:d=1 

160592 CLS 

16060 PRINT "Change or Delete: ": PRINT 
16070 IF LEFT$(a$(cd,i),1)<>"$" THEN PRI 
NT MID$(ag(cd,i),2); 

16080 IF LEFT$(a$g(cd,i),i)="*" THEN hh$= 
MID$ (a$(cd,i),2):PRINT 

146090 IF LEFT$(a$(cd,i),1i)="$" THEN PRIN 
T hh$:PRINT " "sMID$(a$g(cd,i),2); 

161900 IF a(tcd,i)<>0 THEN PRINT TAB(32);U 
SING"HHHH. HH" sa(cd,i) 

16110 PRINT:PRINT "“Commands available:": 
PRINT 

16120 PRINT "1) Next Item" 

16138 PRINT "2) Change Amount" 

16140 PRINT "3) Return to Menu” 

16150 PRINT "4) Delete Item" 

161608 PRINT:PRINT "Which do you require? 


16170 q$="":WHILE qs="" 

16180 q$=INKEY$ 

16198 WEND 

16200 IF q$="4" THEN GOSUB 17000: RETURN 
16210 IF q$="3" THEN RETURN 

16220 WHILE q$="2" AND LEFT$(as(cd,i),1) 
<a 

16230 PRINT: INPUT "Amount to be added: ", 


q 

162408 PRINT: INPUT "Is that correct (y/n) 
“r$ 

16250 IF LOWER$(r$)="y" THEN a(cd,i)=a(c 
dyid+qigfg="" 

146260 WEND 

162708 WEND 

16280 NEXT i 

162998 RETURN 


Comentário 


Linhas 16070-16090: se o item chamado a partir do ficheiro for um item singu- 
lar, então este será impresso — embora despojado do carácter indicador que se en- 
contra junto ao início do nome. Se o item for um cabeçalho principal, não só será 
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impresso, como o respectivo nome será armazenado em HHS$, para que possa ser im- 
presso acima de qualquer dos seus subtítulos seguintes. 


Linhas 16220-16260: para além do apagamento de itens, podem ser feitas altera- 
ções ao valor associado a um título. Isto consegue-se pela inserção de um número 
positivo ou negativo, através do qual o valor de um item pode ser alterado — não 
um valor absoluto que o item deve assumir. A vantagem disto é que a maioria das al- 
terações resultarão na necessidade de adicionar quantias a itens existentes, já que 
despesas ou receitas suplementares são feitas sob itens anteriormente existentes. As- 
sim, se for necessário gastar 10 000 escudos extra em reparações ao automóvel, para 
as quais existe já um título, tudo o que é preciso fazer é passar o ficheiro em revista 
até esse título e introduzir «10 000». 


Ensaio 


Execute o programa e chame os dados que armazenou previamente em fita. 
Chame agora a opção 2 a partir do menu e verifique se pode passar em revista os três 
itens, regressando finalmente ao menu. Volte a chamar a opção 2, experimentando, 
desta vez, adicionar ou subtrair dos dois totais anteriormente introduzidos. A repeti- 
ção da revista aos itens deverá revelar que você conseguiu alterar com sucesso os res- 
pectivos valores. 


Módulo 5.2.9: Apagamento de itens 


Uma característica final a ser acrescentada, com relação aos itens existentes, é o 
apagamento. No caso do «Contabilista», o módulo de apagamento é mais complexo 
do que anteriores exemplos do mesmo tipo. A razão para isto está na existência dos 
grupos formados em torno de cabeçalhos principais. Enquanto não se registam difi- 
culdades relacionadas com o apagamento de um item singular ou de um subtítulo, 
que acontece quando um cabeçalho principal é apagado? A resposta, obviamente, é 
que o cabeçalho principal deve, não só ser retirado, como sê-lo juntamente com os 
subtítulos que lhe estão associados — de outro modo, a contabilidade tornar-se-ia 
emperrada por subtítulos ligados de um cabeçalho principal, tornando incompreensi- 
veis as contas. 


Módulo 5.2.9: linhas 17000-17140 


17000 REM 63565635 36363€3€3E3E4€ 36 3EJEIEIE SE IE IEEE III IEEE 
179010 REM Deletions 

17920 REM 333 3EJEIEJEIEIEIEIEIEIEIEIEIEIEIEIEIEI III IE IEEE 
17030 pl=izgr=i 

17040 d=0:WHILE LEFT$(asg(cd,pl),1)="*" A 
ND d=B8:d=1 

17050 WHILE LEFT$(a$(cd,pl+gr),1)="$" 
17060 gr=gr+1 

17070 wWEND 
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17088 WEND 

17990 FOR k=pl TO c(cd)-gr-i 
17100 a(cd,k)=a(cd,k+gr) 
17110 a$(cd,k)=a$(cd,k+gr) 
17120 NEXT k 

17138 c(cd)=c(cd)-gr 

17140 RETURN 


Comentário 


Linha 17030: a posição em que o apagamento deve ter lugar é enviada do módu- 
lo anterior, sob a forma da variável I. Esta é transferida para PL, por razões que se 
prendem com o módulo corrente. A variável GR (GRupo) regista a quantidade de 
itens que devem ser apagados. É regulada, inicialmente, para 1 e apenas será aumen- 
tada se o item a ser apagado for um cabeçalho principal, com subtítulos adjuntos. 


Linhas 17040-17080: estes dois ciclos incorporados apenas serão activados se o 
item especificado para apagamento for um cabeçalho principal. O ciclo interior ana- 
lisa as entradas seguintes, contando quantos daqueles itens a seguir são precedidos 
por «$», indicando que se trata de subitens do cabeçalho principal. O resultado da 
contagem é guardado em GR. 


Linhas 17090-17120: trata-se de um ciclo típico, destinado a eliminar um quadro 
e a apagar um item. A diferença, aqui, está em que, em vez de o item X ser copiado 
para o espaço X-1 e, portanto, cada elemento ser copiado um espaço para baixo, os 
itens são transferidos GR posições, apagando assim GR itens, ou o número de itens 
no grupo baseado em torno de um item principal. 


Ensaio 


Seguindo o procedimento de ensaio usado para o módulo anterior, o utilizador 
deverá não apenas ser capaz de passar os itens em revista e alterá-los como também 
apagá-los. Se apagar o item etiquetado MAIN TEST, deverá verificar que SUB- 
TEST desaparece com ele. 


Módulo 5.2.10: Visualização da contabilidade 
Depois de todos os preparativos, este é o módulo que dá sentido ao conjunto, 
através da visualização da contabilidade na sua forma final. Tal como o módulo 


equivalente no «Banqueiro», este também parece complexo, mas, uma vez obtida a 
visualização, depressa perceberá por que razão tudo está disposto como está. 
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Módulo 5.2.10: linhas 18000-18310 


19009 REM JJ IEIEIEIEIEIEIEIEIEIEIEIEIE IEEE IEEE IEEE 

19910 REM Print Accounts 

18920 REM 33 JEJEIEIEIEIEIEIEIEIEIEIEIEIEILIEIEIEIE IE IE IEEE IE 

18930 tt=D:ss=0 

18949 CLS:PRINT "Print Accounts: ":PRINT 

18950 PRINT: INPUT "Send accounts to prin 
ter (y/n)";p$:ch=0: IF LOWERS$ (p$)="y" THE 
N ch=8 

18060 CLS 

18970 PRINT Hch, TAB (29-LEN(cd$)/2);cd$:P 
RINT 

189990 FOR i=B TO c(cd)-i 

19990 tt=tt+a(cd,i) 

18108 IF LEFT$(a$(cd,i),1)="*" THEN PRIN 
T &ch 

18110 IF LEFT$(a$(cd,i),1)="$" THEN PRIN 
T Htch 9 um nm 5 

18120 PRINT &Hch,MID$(a$(cd,i),2); 

18130 d=B:WHILE LEFT$(a$(cd,i)d,i)<>"'*" A 
ND d=B:d=1 

18140 PRINT Hch, TAB(18B); 

18150 IF LEFT$(a$(cd,i),1)="%" THEN PRIN 
T tch, TAB(29); 

18160 PRINT Hch USING "HHHEH.HH" salcd,i); 
18170 IF LEFT$(a$(cd,i),1l)="$" THEN ss=s 
sta(cd,i) 

18198 WEND 

18190 PRINT ch 

18200 WHILE ss<>B AND LEFT$(a$g(cd,i+i),i 
)< >"$4" 

18218 PRINT Hch, TAB(18B);"-—————— E 

182208 PRINT &Hch, TAB (29) ;USING "HERE. HH"; 
ss 

18230 ss=02 

18240 WEND 

18250 NEXT i 

18260 PRINT Hch, TAB(29);"-—————— + 

182708 PRINT HCH,"TOTAL:"; TAB(29) ;USING “ 
HEHH. HRS tt 

18280 IF ch=8 THEN RETURN 

18298 PRINT:PRINT “Press any key to cont 
inue”" 
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1839090 WHILE INKEY$="":WEND 
18319 RETURN 


Comentário 


Linha 18090: a variável TT será utilizada para armazenar o total corrente das 
contas, à medida que são impressas. 


Linhas 18100-18120: estas linhas imprimem o nome do item. Para um item prin- 
cipal, é impressa primeiro uma linha em branco, para o separar do que está para 
trás, enquanto, para um subtítulo, os dois espaços englobam o nome do item. 


Linhas 18130-18180: estas linhas tratam da impressão das quantias para itens sin- 
gulares e subtítulos. Os subtítulos serão impressos na 18.º posição ao longo da linha e 
os itens singulares na 29.º posição. Se o item sob tratamento for um subtítulo, então o 
subtotal dos itens do grupo corrente será armazenado temporariamente em SS. 


Linhas 18190-18230: este ciclo apenas opera quando um grupo está em processa- 
mento, tal como é indicado pelo facto de SS não ser equivalente a O e de o item se- 
guinte não fazer parte do grupo — isto é, o grupo está completo. O efeito do ciclo 
consiste em imprimir o total do grupo na coluna principal de valores, na posição 29 
ao longo da linha. 


Ensaio 
Volte a carregar os dados que previamente armazenou em fita e chame a opção 


3 do menu principal. Se este ensaio for executado com sucesso, o programa estará 
pronto para ser utilizado. 
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PROGRAMAÇÃO AVANÇADA 
PARA O AMSTRAD 


DAVID LAWRENCE 


Este livro pretende demonstrar como se desenvolvem 
programas de aplicação sérios para utilização no Amstrad. 
O autor destaca a importância de : 
os programas obedecerem a uma 
concepção e planeamento cuida- 
dos e ilustra os pontos principais | 
com grande profusão de exem- 
plos. 

A obra descreve as vantagens 
da programação modular, seguin- 
do-se capítulos sobre métodos 
adequados de introdução da infor- 
mação, manuseamento de cadeias, 
como evitar erros, armazenamen- 
to e recuperação de informação, 
estruturas de dados, ordenação e , 
busca. É 

Valiosas sugestões e novas ideias com aplicação nos 
diversos modelos do Amstrad. Um valioso instrumento a 
ter sempre à mão. 


AVENTURAS COM O ATAR/ 
TONY BRIDGE 


Texto de aventuras; Scott Adams e Infocon; Aventuras 
de galerias labirínticas; Masmorras e Dragões; Vedetas do 
3 software; Apresentação do elenco; 

Escolha de uma aventura. 

Esta é a primeira parte do livro, 
que aborda a fase inicial da aven- 
tura — a concepção do jogo, ver- 
são somente de texto, no qual o 
jogador terá de solucionar muitos 

| puzzles de forma a encontrar o ca- 
minho certo. 

A lenda; Criação da sua própria 
masmorra; Monstro, Monstro!; 
Ataque e defesa; Figuras diverti- 

| das; Vamos dar um passo; O me- 

| nu, por favor. Esta a segunda par- 

te, que apresenta uma secção de 

gráficos, uma outra de texto da 

aventura O Olho do Guerreiro das Estrelas. Cada linha 
completamente discutida. Muitas rotinas podem ser usa- 
das nos seus próprios programas. 
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Este livro é uma recolha de programas consistentes para aplicação. 
As matérias abordadas pelos programas incluem as finanças domésticas 
e os impostos, o armazenamento de informações e respectiva utilização, 
gestão doméstica e quotidiana, gráficos criativos e técnicas de visualiza- 
ção efectiva, música, educação e um conjunto de programas mais peque- 
nos que exploram as possibilidades do Amstrad como máquina do tempo. 

Todos os programas do livro são claramente explicados e escritos em 
módulos identificáveis, para que os métodos neles incluídos possam ser 
copiados para os seus próprios programas. 

O Amstrad abre novos caminhos por entre os micros pessoais no que 
se refere a potência e custos, oferecendo perspectivas de novas e entu- 
siásticas áreas de aplicação. Os livros de David Lawrence iniciaram milha- 
res de pessoas na escrita dos seus próprios programas de aplicação. Ago- 
ra, ele mostra como toda a potência do Amstrad pode ser liberta através 
do potente e novo BASIC. 


David Lawrence é o autor de vários livros best-seller para computa- 
dores, entre os quais O SPECTRUM FUNCIONAL. Simon Lane é um con- 
ceituado programador, cujo software de jogos tem sido vendido em mui- 
tos países pelo mundo fora. 
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